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PC Techhnoui 9800 の発刊にあだって 


本書は、 NEC の16ビットパーソナルコンピュータ PC — 9800シリーズを対象として本体ならび 

に周辺機器の内部構造から活用の方法までを解説しています。本書の執筆にあたっては、次の点が 

考慮されています。 

• PC - 9800シリーズ （ PC -9801 .PC —9801 F.PC —9801 E ) の3機種に対応するように心掛けてい 

ます。 

• PC — 9800シリーズの バージ ョ ンの 違いにより本書に記載されているアドレスが異なることがあ 
ります。しかし、サンプルプログラムなどは、ほとんどすべての バージョンに 適合するように作 
られています。これは ROM が異なってもワークエリアは同じであるため、プログラムはワーク 
エリアを参照した形をとっているためです。 

• N««-BASIC (86) の内部構造などでのダンプ結果も本書に示されているものと異なっている場 
合があります。その際は，ワークエリアのアドレスが必ず示されていますので，その値を参照し 
て、ユーザーのマシンに合わせることができます。 

春マシン語プログラムのソースリストは内容を理解していただくためにラベルやコメントを付記し 
ています。これらは、デジタルリサーチ社の A SM -86 で作成されています。また、便宜上一部 
本体モニタのアセンブルリストも用いています。 


※ASM — 86は米デジタルリサーチ社の登録商標です。 
※ MS - DOS は米マイクロソフト社の登録商標です。 
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はじめに 


パーソナルコンピュータも8ビットから16ビットの時代になってきました。 

16ビットになれば、処理スピード、メモリアクセス能力などが8ビットに比べ飛躍的に向上しま 
す。そのためパーソナルコンピュータの利用範囲が拉大し、特にビジネス分野などで効果的にかつ 
効率良く使われてきておリます。これからもさらにいろいろな分野で16ビットパーソナルコンピュ 
一夕が利用されるでしょう。 

本書で取リ上げるパーソナルコンピュータは、インテルの16ビット CPU 、 iAPX 8086 相当を塔載 
した NEC の PC — 9800シリーズ （PC — 9801 • PC — 9801 F • PC — 9801 E ) です。 

これらは、処理スピード、グラフィック機能、メモリ容量など処理能力が、 PC —100と共に PC 
シリーズの最上位機種として位置づけられます。 

しかし、これまでの8ビットパーソナルコンピュータの仕様とは大幅に異なっていますので、内 
部構造やメモリアクセスの方法が難解です。 PC —9800のユーザーが、パーソナルコンピュータの機 
能を十二分に引き出し、よリ有効に使うためには、本体の内部や周辺機器について詳しく知ること 
がボイントになってきます。そうなれば PC - 8800シリーズのソフトを PC — 9800シリーズで実行さ 
せるために移植したり、 N — B A SIC (86) やアセンブリ言語でプログラミングする際に効率良く、思 
いのままの結果が得られることでしょう。 

そこで本書では、 PC - 9800シリーズの本体はもちろん、プリンタ、ディスクユニットに至るま 
で、内部解析情報や活用のノウハウを実践に役立つようにまとめています。またすぐに使えるプロ 
グラムも豊富に紹介しています。 

限られたページの中で、充分意を尽すことはできませんが、読者の方々自らの内容補完により、 
PC -9800シリーズに対する理解をより深めていただきたいと存じます。 また、 PC —9800シリー 
ズを使いこなすための座右の書として利用いただければ幸いです。 

本書を執筆するにあたり、日本電気株式会社殿よりハードウヱア及びソフトウヱアを•快く提供し 
ていただきましたことを感謝いたします。 

なお、本普の執筆にあたっては、藤田英時と幸田敏記が共同で行ない、 システム ソフト •スタッ 
フが監修を担当しました。 

1983年11月 


著者 


3 




目次 


PC-TechKnow 98〇〇の発刊にあたつて . 2 

1扣伽こ . 3 

第1章メモ U マップ . 14 

1-1 メモ ij マップ . 14 

1-2 アドレスの表わし方 . 15 

1-3 増設 RAM(PC- 9801 -02). 15 

1-4 RAM のメモ U マップ . 17 

1- 5 ユーザーマシン語の格納法 . 20 

第2章 N 88 - BASIC (86) の内部構造 . 21 

2- 1 プ□ブラムの格納状態 . 22 

2-2 中間言語 . 24 

2-2-1 中間言語コード （0H 〜 7FH). 24 

2-2-2 中間言語コード (80H 〜 FFH). 25 

2-2-3 中間言語テーブル . 25 

2-3 ラベルテーブル . 33 

2-4 麵トブル . 35 

2-4-1 単純変数テーブル . 36 

2- 4-2 配列変数テーブル . 39 

2-5 文字列エリア . 44 

2-6 BASIC プロブラム復活法 . 46 

2- 7 ステートメント.関数の処理アドレス . 51 

第3章テキスト画面 . 57 

3- 1 WIDTH. 58 

3_1_1 WIDTH と DIP スイッチ . 58 

3- 1-2 WIDTH 文のパラメータの省略 . 58 

3-2 テキスト VRAM のアドレス . 59 

3-3 画面とアドレスの対)®表 . 59 


4 































3-4 アト U ビュートエリア . 60 

3-5 テキスト画面でブラフィックが使える/ . 61 

3-6 画面を縦に2分割 . 64 

3-7 テキスト画面の2ページ目を利用 . 67 

3-8 ひらがなの表示 . 68 

3- 9 キーと TAB 関数 . 70 

第4章ヴラフィック画面 . 73 

4- 1 G-VRAM. 74 

4-1-1 G-VRAM のメモ 1 」マップ . 74 

4-1-2 高速画面クリア . 77 

4-2 カラー パレット . 77 

4-2-1 マシン語によるカラーパレットの制御 . 77 

4-2-2 カラーパレットの初期化 . 80 

4-3 ボーダ _ 力う . . 80 

4-4 ブラフィック BIOS と GDC(Graphic Display Controller)..81 

4-4-1 ブラフィック BIOS のワークエリア . 82 

4-4-2 PSE 丁ドットを打つ . 84 

4-4-3 ドットを読み出す . 86 

4-4-4 直線•箱型を描< LINE. 89 

4-4-5 円孤を描< CIRCLE. 93 

4-4-6 ブラフィックパターンを描く . 98 

4- 4-7 高速書き込みモードにする . 101 

4-5 マシン語による G- VRAM 直接アクセス法 . 101 

4-6 ブラフィック LI 〇と巳 ASIC コマンド . 104 

4-7 3D パッケージの紹介 . 121 

第5章キー入力 . 135 

5~1 キ ー 入カバッファ . 136 

5- 1-1 BIOS キー入カバッファ . 136 


5 

































5-1-2 インタブ 1 J 夕のキー入カバッファ . 138 

5-2 ファンクシヨンキー . 139 

5-2-1 ファンクシヨンキーの構造 . 139 

5-2-2 ファンクシヨンキーの初期化 . 143 

5- 2-3 ファンクシヨンキーの退避•復活 . 145 

5-3 キー•スキヤン方式 . 146 

5-4 キー入力のセンス . 150 

5- 5 キー入力方法 • キーセンス比較表 . 151 

第6章カセットファイル . 153 

6- 1CM 丁インターフェイス . 154 

6-2 CMT とのデータ転送の仕様 . 154 

6-3 データフォーマット . 154 

6- 3-1 プ□ブラムファイル . 154 

6-3-2 データファイル . 155 

6-3-3 マシン語ファイル . 155 

6-4 内部ルーチン . 155 

6-4-1 データ書き込み . 156 

6- 4-2 データ読み込み . 156 

6~5 マシン語(こよるセーブ•口 ード . 156 

6-6 BASIC とマシン語を一度に SAVE . LOAD . 158 

6-7 データの 高速 セー プド . 161 

第7章ディスクファイル . 165 

7>1 ディスクファイルの構造 . 166 

7- 1-1 ディスク•マップ . 166 

7-1-2 ディスクアドレスとクラスタとの変換 . 169 

7-1-3 ディレクト U . 169 

7-1-4 ID セクタ . 171 

7-1-5 FAT. 171 


6 
































7-2 DSKF 関数 . 173 

7-3 標準ディスク . 174 

7-3-1 フォーマツティンブ . 174 

① 物理フォーマツト . 174 

② インター U- プ 13 とは？ . 174 

③ システムフォーマツト . 175 

④ サンプル.プ□ブラム . 176 

⑮読み書きテスト結果 . 177 

7 - 3-2 ディスク BIOS コマンド . 178 

①概要 . 178 

©U-KID. 181 

③ドデータ . 183 

©ライトデータ . 185 

(D5/-9. 186 

◎フォーマツト . 187 

7-4 5 インチ•ディスク . 189 

7-4-1 概要 . 189 

7-4-2 ディスク BIOS コマンド . 189 

① セ . 189 

② イニシャライズ . 190 

③ U —ドデータ . 192 

④ ライトデータ . 193 

⑮フォーマツト . 194 

©片面 • 両面アクセス . 194 

7-5 ディスク.ユーティリティ.プ□ブラム . 195 

7-5-1 ファイルインフォメーション . 195 

7-5-2 1 ファイル転送 . 197 

7~5~3 ファイルネームソート . 199 

7-5-4 オールマイティディスクダンプ . 200 

7-5-5 簡易ディスクエディター . 202 


7 


































7-5-6 8 インチ IDU — 夕、、一 . 203 

7- 5-7 インテル HEX ファイル□一夕、'— . 205 

第8章プ U ンタ出力 . 208 

8-1 画面コピー機能 . 208 

8-2テキスト画面のコピー . 211 

8 - 2-1 BASIC によるサブルーチン . -211 

8- 2-2 マシン語によるサブルーチン . 212 

8-3 カラーブラフ ィッ クコピー . 212 

8-3-1 640 X 200 モード . 212 

8-3-2 640 X 400 モード . 215 

8-4 アセンプり言語によるプリンタ出力 . 217 

8-4 -1イニシャライズ . 217 

8-4-2 1バイト出力 . 217 

8-4-3 複数バイト出力 . 218 

8- 5 PRINT / LPRIN 丁あれこれ . 219 

8-5-1 出カデバイス名の変更 . 219 

8-5-2 切り換えルーチンを作る . 220 

8- 5-3 内部ルーチンを利用する . 221 

8-5-4 未使用コマンドでの切り換え . 222 

第9章漢字 . 225 

9- 1 漢字 ROM ボード . 226 

9-2 テキスト画面とブラフィック画面に漢字表示 . 226 

9-3 ファンクシヨンキーエリアに漢字表示 . 227 

9-4 漢字フォントハ。ターン読み出し . 229 

9-5 漢字フォントパターンの拡大表示 . 235 

9-6 漢字 • JIS コード対廊表示 . 236 

9-7 漢字フォントをビットイメージで出力 . 237 

9-8 任意のフォントの作成•出力 . 242 


8 
































第 10 章 USR 関数 . CALL 文とマシン語 . 247 

10-1 マシン語ルーチンの呼び方 . 248 

10-2 マシン語ルーチンの実行と引数の受け渡し方 . 251 

10-2-1 引数がない場合 . 251 

10-2-2 USR 関数の引数 . 252 

10-2-3 CA し L 文の引数 . 255 

10-3 結果の戻し方 . 261 

10-3-1USR 関数の場合 . 261 

10-3-2 CALL 文の場合 . 262 

10- 4 BASIC+ マシン語ルーチン . 265 

10-4-1 サウンドビープ . 265 

10-4-2 小文字•大文字変換 . 266 

10-4-3 最大値を求める . 267 

10-4-4 文字列を逆に表示 . 268 

10-4-5 ROLL200 & ROLL400 . 269 

10-4-6 アドレスサーチ . 270 

第 11 章入出カファイル . 273 

11- 1 入出力装置とファイル . 274 

11-2 変数でファイ J レ指定 . 274 

11-3 ファイルバッファ . 275 

11-4 ファイルバッファ使用例 . 280 

11- 5 高速ブラフイックス • 口ーダー . 283 

第 12 章 RS-232C . 289 

12- 1 RS-232C とは . 290 

12-2 専用ケーブルの作り方 . 290 

12-3 通信モードの指定 . 291 

12-4 ブ□ブラムの転送 . 293 

12-4-1 メモ U— 上にある場合 . 293 


9 
































12-4-2 ディスクファイルにある場合 . 294 

12- 5 コミュニケーション • プログラム . 295 

第 13 章 PC- 980 1F . 297 

13- 1 システム概要 . 298 

13-2 5 インチ倍トラックディスク . 298 

13-3 漢字 ROM と日本語巳 ASIC. 298 

13-4 拡張ブラフィック画面 . 299 

13-5 拡張ステートメント . 300 

13- 6 PC- 9801 E. 305 

第 14 章ランダムテクニック . 307 

14- 1 ■号 0 . 308 

14-2 2 バイトの数字を上位.下位の 1 バイトに分ける . 310 

14.-3 REM 文の効率 . 311 

14-4 エラーメッセージをすべて表示するには . 312 

14-5 マシン語でエラーメッセージを表示 . 315 

14-6 未使用コマンドを使用する . 318 

14-7 新しいコマンドを作る . 326 

14-8 8086 は U セットがかかつだら何処•へ？！ . 330 

14-9 INKEY$ で力ーソル表示 . 331 

14-10 高速 1 」スト . 332 

14-11 CHR$(13); CHR$(10) と CHR$(13)+CHR$C10) との違い . 333 

14-12 OUT PUTtAS も変数に使える . 333 

14-13 キーバッファクリア . 334 

14-14 U アルタイムで時間表示 . 335 

14- 15 モニタモードでファンクションキーを使用する . 337 

第 15 章ユーティリティ . 339 

15- 1 テキストサーチ . 340 

15-2 リプレイス . 347 


10 
































15-3 バリアフル 1 」スト . 359 

15-4バーティカルファイルズ . 371 

イ寸 _ . 377 

付1機械語プ□ブラム.ソースリスト . 379 

付2 ROM 内ルーチンの INT による利用 . 405 

⑴ IN 丁割込みべクター覧表 . 406 

(2) INT C 4 H のソフトウェアインターフェースの説明 . 421 

(インタプリタ内のルーチンの利用） 

付3ワークエ U アー覧表 . 431 

(1) システム共通域 . 432 

(2) BASIC LI 〇ワークエリア . 438 

(3) シンボルテーブルエアのワークエリア . 452 

付4 I/O ポー!一 K . 453 

付5 コマンド.ステートメント.関数®理アドレスー覧表 . 487 

付6 コントロールコードー覧表 . 489 

付7 エラーメッセージー覧表 . 493 

付8 プリンタ機能一覧表 ( PC -8821/22 PC -8023). 497 

付9 キャラクタコード表 . 501 

付10 USING 文フォーマットー覧表 . 503 

付11 Z -80 • 8086二ーモニック対廊表 . 505 


11 






























第 1 章メモ 1 J マップ 

1-1 メモリマップ 
1-2 アドレスの表し方 

1-3 増設 RAM ( PC -9801-02) 

1-4 RAM のメモリマップ 
1-5 ユーザーマシン語の格納法 


13 



第 1 章メモリマップ 


1-1 メモリマップ 

PC -9801 は，標準で RAM 128 K バイト，グラフィック VRAM 96 K バイト，テキスト VRAM 8 
K バイト， ROM 96 K バイト，の合計 328 K バイトにも及ぶメモリを持っています。これは， PC 
-8801に比べると約3倍， PC -8001 に比べると約5倍になります。しかも， RAM を 512 K バイト増 
設することができます。 

これらのメモリは CPU が16ビットの #PD 8086のため， PC - 8801のようなバンク切り換えをせ 
ずとも，主記憶空間に図 1-1 のように連続して配置することができます。 


物理アドレス （ 16 進） 



図 1-1 全アドレス空間の概要 
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1-2 アドレスの表し方 


アドレスは実質的に，20ビット= 4ビット X 5, 即ち5ケタの16進数字で表わします。このアド 
レスのことを物理アドレスといい 1 M バイトまで表現できます。 

8086は，セグメントという考え方を導入して，1つのセグメント内では，一度に 64 K バイトまで 
しかアクセスできません。このアドレスのことをオフセットと呼びます。即ち，図 1-2 のように， 
セグメントアドレスを4ビット左へずらして，オフセットアドレスを加えたものが物理アドレスと 
いうことになります。普通は，セグメントアドレスを固定して，オフセットアドレスで指定するこ 
とになります。 



A 

8 

0 

0 

セグメントアドレス （4 ケタ） 






+) 

3 

5 

2 

1 

オフセットアドレス （4 ケタ） 




A 

B 

5 

2 

1 

物理アドレス （5 ケタ） 


□の中の数字は例として示したものです。 


図 1-2 アドレス表現 

1-3 増設 RAM ( PC -9801-02) 

RAM を増設した際1つのボードには 256 K バイトのりますが，購入した時点では，128 K バイト 
しかのっていませんので注意して下さい。 256 K バイトにするには， PC -9805 増設用 RAM 128 K 
バイトをボードの空ソケットに差さなければなりません。しかし， RAM ボードを差し込んだだけ 
ではメモリは増えません。本体背面のディップスイッチ SW 2 の5を ON (下向き）にして，主メモ 
リ内の物理アドレス A 3 FE 0 H 〜 A 3 FFFH の32バイトに4バイトおきに配置された不揮発性メ 
モリを書きかえなければなりません。それぞれのメモリスイッチには図 1-3 のように SW 1 〜 SW 
7の名前がついています。 
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物理アドレス 

名 前 

A 3 FE 2 

SW 1 

A 3 FE 6 

SW 2 

A 3 FEA 

SW 3 

A 3 FEE 

SW 4 

A 3 FF 2 

SW 5 

A 3 FF 6 

SW 6 

A 3 FFA 

SW 7 


図 1-3 メモリ • スイッチの名前 


メモリ増設のときは，この A 3 FEAH (SW 3) を図 1-4 のように書きかえなければなりません。 


0 .128 K バイト（標準実装時) 

1 .256 K バイト (128 K バイト増設） 

2 .384 K バイト (256 K バイト増設） 

3 .512 K バイト （384 K バイト増設） 

4 .640 K バイト （512 K バイト増設） 

図 1-4 メモリ増設のときの SW 3の設定 


ただしこれは， A 3 FEAH の下位3ビットであって，上位5ビットは次の表 1-1 の意 
味をもちますので， ユーザーが 自分の マシンに 合わせて設定します。 


b 3 . 8087 

b 4 . ODA 系プリンタ 

b 5 . プリンタの型 

b 6 . テキス ト 画面の カラー 

b 7 . DEL コード 

受信時動作 


0 1 

無 有 

JIS 8ビット 7ビット 

セントロニクス ODA 系 

白 緑 


BS NUL 

表卜1 SW 3のユーザー設定 


普通の使い方 （8087 なし，プリンタはセントロニクス，文字の色は白）なら，図 1-4 の値を入れ 
ておけば OK です。 
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設定の方法は， MON モードにして, 


h ] SSW 3 つ (128 K バイト増設時) 
0 0-01 」■(この部分を入力する。） 


というように書きかえます。 

h ] SSW 

と入力すると，全メモリスイッチの内容が表示されます。リセットをすると，この場合 128 K バイ 
卜増設した状態で使えます。もし，このセッティングをしないと，せっかく RAM を増設しても 
BASIC のフリーエリアは増えませんので注意して下さい。 

1-4 RAM のメモリマップ 

図 1-1 にアドレス空間全体のメモリマップを示しました。今度は，さらに細かくみていく ことに 
しましょう0標準実装 RAM は，物理アドレス0000 0 H 〜 1 FFFFH に配置されています。 
N 88 - BASIC (86) 使用時のメモリ•マップを図 1-5 に示します。 
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注 I ) シンボルテーブルセグメントの詳細 


物理アドレス （16 進） 


\ IFFFF ノ 


fre (3) 


I 5 FFF - 


10 0 0 0 - 


0 0 0 0 0 


機械語プログラム 
セグメント 


セグメント*ポインタ 
• (1402,3) 

- (1404,5) ‘ 


フリーエリア 
个配列データセグメ: 


シンポルテーブル 
セグメント注 I ) 


DISK CODE 
(24 K バイト） 


テキストセグメ: 


注 2) 


システムエリア 


■ ( 6 A 2， 3) 


ワークエリアの 
中のポインタ 


fre ( O ) J 
(4,5)- 


BASIC の 

ワークエリアの中の 
ポインタ•オフセット 


- (1410.1) 

>ディスク使用時のみ 


(2,3)- 


ストリング 
ワークエリア 


ストリング 
格納エリア 


フリーエリア 
A 配列群テーブル 


,単純変数テーブル 


ラベルテーブル 

エリア 


ワークエリア 


-(6 B 2, 3) 
-(6 B 4, 5) 


-(6 AE , F ) 
-(1410, I ) 


-( I 40 E , F ) 


注 2) テキストセグメントの詳細； BASIC の 

ワークエリアの中の 
オフセツトボインタ 
-(6 AC , D ) 


F 9 FF - 


fre ( l ) 


(テキストセグメントは1 
(ふつう60 H です。 > 


IB 00- 


0 0 0 0 - 


データスタック 


システムスタック 


_- 

冷- 


フリーエリア 
テキストエリア 


ファイル 

バッファ 


BASIC 

ワークエリア 


-(6 E 6, 7) 

(6 AA , B ) 

S P レジスタ 

-(6 A 8, 9) 


-( 6 A 6, 7 ) 
-(6 A 4, 5) 

1ディスク使用時 


図卜5 N 88 - BASIC (86) 使用時のメモリマップ 
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表 1-2 は，図 1-5 の各セグメントポインタの値です。 




内 

容 


ボインタアドレス 

標 準 

128 KB 増 

テキストのセグメント 
の値 

140 E .0 F 

0060 

0060 

シンボルテーブルのセ 

グメント値 

1410，11 

DISK 1600 

ROM 1000 

1600 

配列 データ セグメント 

6 A 2.3 

DISK 1 B 00 

ROM 1800 

DISK 25 FF 

ROM 1 FFF 

マシン語のセグメント 

値 

f CLEAR 文の第 2 J 

1404,05 

2000 

4000 

(引数で設定した値 J 




RAM 終端物理アドレ 
ス+1のセグメント値 

1402,03 

2000 

4000 


表 1-2 セグメント•ポインタの内容 （16 進) 


これらのポインタはセグメント60 H からのオフセットです。表 1-2 の内容は， MON モードで次 
のようにして調べることができます。 

MON 

h]C60 

h]D1402 

1402 00 20 00 20 02 02 00 IB 38 06 00 E8 60 00 00 16 r 4 

h：D6A2 

06A2 00 IB D8 27 C3 28 FE F3 FE F7 FE F9 00 01 00 01 デテ（月妙 


マシン語のセグメント値は電源 ON (リセット）の時点では RAM 終端と同じですが， CLEAR の 
第2引数の値で指定することができます。 

図 1-5 の中でテキストセグメントの中に I / O ファイルバッファという部分がありますが，この中 
に FAT 等を格納するエリアがあります。詳細については『第7章ディスクファイル』で説明しま 
す。 

データスタックは， GOSUB , FOR , WHILE のネスティングの記憶に使われます。それぞれ1回 
につき8バイト，22バイト，10バイトずつ消費されます。データスタックの大きさは初期設定では 
512バイトですので，ネスティングを深くするときは，データスタックの大きさをふやして下さい。 
この大きさは， CLEAR 文の第3弓 I 数で指定することができます。 
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1-5 ユーザーマシン 語の格納法 

ユーザーのマシン 語の格納法には2種類あります。1つは マニュアルに 記されているように， 
CLEAR 宣言の第2引数で マシン 語エリアの先頭セグメントを指定する方法です。もう1つは，テキ 
ストの空エリアを利用する方法です。テキストのエンドポインタは， 6 A 6 H , 6 A 7 H に格納され 
ています。セグメントは，セグメントポインタ 140 EH ，140 FH の中に格納されているセグメント値 
(通常60 H ) を使用します。上限のオフセットはポインタ 6 A 8 H , 6 A 9 H に格納されていますの 
で，充分な余裕を取って使用すればよいでしょう。ただし， PAINT を同時に使用することはできま 
せん。それは PAINT ルーチンが作業領域としてこの部分を使用するからです。 


システムスタック 



テキストエリア 


—(6 A 8, 9) 

> この部分に充分 
余裕をもつこと 
—(6 A 6, 7) 

— (6 A 4， 5) 


セグメント 60 H 
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第 2 章N88-巳 ASIC(86) の内部構造 

2-1 プログラムの格納状態 
2-2 中間言語 

2-2-1 中間言語コード (0 H 〜 7 FH ) 

2一2-ど中間邑^コード (8 Q [_| 〜 r FH ) 

2-2-3 中間言語テープ)レの形式 

2-3 ラベル テーブル 
2-4 変数 テーブル 

2-4-1 単純変数テーブル 
2-4-2 配列変数テーブル 

2-5 文字列: EU ア 

2-6 BASIC プ□ブラム復活法 


2-7 ステートメント•関数の処理アドレス 




FOR TEXT 

TO 10 ： A=A+1：NEXT 


第 2 章 N 88 - BASIC (86) の内部構造 

2-1 プログラムの格納状態 

BASIC プログラムは，テキストエリアの先頭から，図 2-1 のような形式で格納されていきます。 


リンクポインタ 

行番号 

プログラムテキスト 


00 

2 バイト 

2バイト 

アスキーに直したときに255!バイト以内 

1バイト 


L - 文の終わり 

- BASIC プログラムが を不しま 9 〇 

中間言語に変換された 
形で入っています。 

-プログラムの行番号 

-リンクポインタを含めたバイト数が入ります。 

図 2-1 テキストの格納形式 

リンクポインタは， PC - 8001， PC -8801 と違って，アドレスではなく，その行の占めるバイト数 
となっています。プログラムの終わりでは，リンクポインタの値が0となります。 

次に，プログラムがどのように格納されているか見てみましょう。例として，次のプログラムを 
使います。 


テキストの TOP，END はセグメント 60 H のオフセットポインタ 6 A4 H ， 6A5H と 6A6H ， 
6 A 7H に格納されていますので， 


M0N 

h]C60 

h ： D6A4,6A7 
06A4 48 23 96 23 


.丁 キス ト END | ソト | このオフセットは、 D | S K 使用によって変化します。 

■テキスト TOP 


S 1 A 
E II 
TIT 

M 0 R I D 
E II o R N 
R A F p E 

0 0 0 0 0 
12 3 4 5 
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53 54 
0141 
11 01 
00 0A 
9A 00 


0A 

00 

14 

00 

01 

41 

00」 

FT 

10 

00 


リンクポインタ 

2360 +0A - 

行番号 
( = 20 ) 

スペース 1 コ 

A …変数名 


行の終わり 


2348 

2349 
234A 
234B 
234C 
234D 
234E 
234F 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 
235A 
235B 
235C 
235D 
235E 
235F 


とダンプして直接見ることができます。 

各データは，図 2-2 のような意味を持ちます。 


h]D 2348,2367 
234818 00 0A 00 
2358 4F 52 20 54 
236810 00 1B 00 
2378 0F 0A 3A 41 
2388 00 01 C0 01 


リンクポインタ f 2385 
236A+1B —— I 2386 

行番号 2387 

(=30) 2388 

スペース 1 コ 2389 
FOR 238A 

スペース 1 コ 238B 


I …変数名 


238C 

238D 

238E 


スペース 1 コ 

TO 

スペース 1 コ 
10 

. マルチ ステー トメン I 
A 


NEXT 
行の終わり 


0A 

00 

28 

00 

01 

C0. 

01 : 

41 

00 

00」 


リンクポインタ 
2385 +0A —— 

行番号 
(=40) 

スペース 1 コ 

PRINT 

スへース 1 コ 

A 

行の終わり 


>238F 071 
2390 00 
2391 32] 

2392 00 

2393 01 

2394 9A' 

2395 00: 


リンクポインタ 

238F+ 7- 

行番号 
( = 50) 

スペース 1 コ 

END 

行の終わり 


-^2396 00 
2397 00 


プログラムの終わり 


図 2-2 プログラムの格納状態サンプル 


5 0 171 
4 0 F B 0 

4 4 0 A 0 

5 10 3 0 

0 0 9 12 

2 0 4 13 


D A 1 3 0 
4 0 0 F 0 


5 0 E 0 7 

4 0 9 0 0 

2 4 110 

5 5 0 4 0 

0 8 0 1 0 
0 5 0 F 0 


15 E 0 1 
0 4 10 4 


I 一-一一 i 

B0E01E1 90111 A1FAA1 01103 1A70 
101009040 F10D 000340 F40F13B0 

ABCDEF 0123456789 ABCDEF 01234 
666666777777777777777788888 
333333333333333333333333333 
222222222222222222222222222 


0123456789 

6666666666 

3333333333 

2222222222 


oj' 8 o 

么 + 号 =— 7. 
リ23行ハ 


REM 


ス 

I 

〇へ 
ス 


ぺ . 

TEST ス FOR ス TEXT 行 


ぺ 


わ 

終 

の 




80A 01025 D 0453406 F 2045840 
10000054 -4254552445254550 


6 118 0 
4 F 0 2 0 

0 0 A 0 0 
2 0 D 0 0 
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2 - 2 中間言語 

前の節で， BASIC プログラムのテキストが中間言語を使って，短縮された形で格納されているこ 
とがわかりました。 

それでは， N 88 - BASIC (86) で，どのような中間言語が使われているのかを見てみましょう。 

2-2-1 中間言語コード （0H〜7FH) 

中間言語コードの〇 H から7 FH は，数値や行番号，変数名に使われます。今までと大きく違って 
いるところは，1〜9がスペースの数となっているところで， BASIC テキストの段づけなどをした 
ときのメモリの節約になっています（図2-2のサンプルには，01スペース1コというところがあり 
ますが，ここを05とすると，スペースが5コになります)。 

これらをまとめたものを図 2-3 に示します。 


中間 

言語 

意 味 

備 考 

0 

REM 

そこからあとは REM と同じあつかい（文の途 



エンドマーク 

中），または，行の終わり 


1〜9 

スペース 

スペース1〜9コ 


0 A 

LF 

Line Feed 

1 CTRL i + m で入力する 

0 B 

&0 

以下の2バイトは8進数 

OB 9 C 02 = &01234 

OC 

&H 

以下の2バイトは16進数 

0 C 3412 = & H 1234 

0 D 

アドレス 

以下の2バイトは飛び先オフセットアドレス 

GOTO , GOSUB , THEN , ELSE , 

RESTORE 等の後に続きます。 

0 E 

行番号 

以下の2バイトは飛び先行番号 


OF 

整数 

以下の1バイトは，10〜255の整数 

0 F 50 ― 80(1〇) 

10-19 

整数 

1桁の整数 




(10-0, 11—1，……， 19—9) 


1 A 


使われていない 。 Syntax error になる。 


IB 


漢字のシフトイン，シフトアウト 


1 C 

整数 

以下の2バイトは，整数 

1 C D 2 04 =1234 

ID 

単精度 

以下の4バイトは，単精度定数 

ID EB CO 1 D 81=1.2345 

IF 

倍精度 

以下の8バイトは，倍精度定数 


2 0 

文字 

キャラクタコードに対応する文字 

DATA 文や REM 文，クォテー 

i 

7 F 


(変数名やラベル名など） 

ションの中以外では，アルファ 

べットの小文字は大文字に変換さ 

れるため使われません。上記文の 

中のコードはインタプリタは中間 

コードとしては実行しません。 


図 2-3 中間言語コード （0H〜7FH) 
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2-2-2 中間言語コード (80H 〜 FFH) 

中間言語コードの80 H から FFH は1バイトまたは2バイトで， N 88 -BASIC (86) のキーワード 
を示します(表 2- l 〔 P 30〕 〜表 2-2〔 P 31〕)。 

N - BASIC や N 88 - BASIC と比べると，中間言語コードが異なります。したがって，バイナリで 
SAVE した BASIC ファイルをそのまま LOAD しても正常に動作させることはできません。 
N 88 - BASIC のものであれば， アスキー SAVE 
SAVE 、、ファイル名"， A 

を行ったものであれば， USR や PEEK ， POKE などを使っていなければ，動作します。 

表 2-1, 表 2-2 で （） でくくってある数字は，フラグとよばれるもので図 2-4 に示すような意味 
をもっています。これはインタプリタ内での処理を容易にするために新しく設けられたもののよう 
です。 


b 7 


bo 



1 —オペランドにラインナンバー，ラベルを含む 

-オペランドをソースイメージのままとする 

( DATA , REM 等） 

, f 内部では，： ELSE となつているが \ 
- 中間 コ ■"卜の直 目 ij に.を揷人する ( UST をとると ELS e しか表示されない j 

-キーワードのあとに少なくとも丨つのスペースが必要 


図 2-4 キーワードテーブル中のフラグの意味 


2-2-3 中間言語テーブル 

中間言語とキーワードの対応表は，セグメント E 800 H , オフセット000 0 H 〜 B 1 FFH のどこか 
に位置していますが， ROM のバージョン等によって相当異なります。ただし，テーブルのオフセッ 
卜を格納しているアドレスを BASIC のワークエリア（セグメント60 H ) の 140 AH 〜 140 DH に， 
オフセットセグメントの順に格納してありますので， ROM のバージョンが異なってもキーワード • 
テーブルの位置を知ることができます。 

このテーブルは，入力したプログラムを中間言語に変換してテキスト領域に格納するときや，逆 
にリストをとったりするときに使われるものです。キーワードテーブルのアドレス値は， ROM の 
バージ ョ ン によって異なりますが，一例を次に示します。 
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A - 6536 

B - 655F 

C - 6573 

D - 65FD 

E - 6650 

F - 6688 

6 - 66AF 

H - 66C8 

I- 66D4 

J -6719 

K -67 IF 

L - 676A 

M - 67CB 


ということであり， 


MON 

h ： D 6536,655 F 

6536 03 55 54 4F 80 90 02 4E 44 F8 80 02 42 5310 80 UTO- 丄 ND-BS- 

6546 02 54 4E 1180 02 53 4312 80 04 54 54 52 2413 TN - SC _ TTR$ 

6556 00 05 4B 43 4E 56 24 4C 00 04 KCNV$L 


例えば， 6536 H 〜 655 FH に格納されているキーワードは頭文字が A ということを示すものです。 

AUTO , AND , ABS , ATN , ASC , ATTR $, AKCNV $ 

が右側のアスキーダンプにみえています。 


h ： C60 

h]D140A,140D 
140A FE 64 00 E8 
hD 


セグメント E 800 H , オフセット 64 FEH にキーワードテーブルのポインタがあることを示してい 
ます。 


h]CE800 

h]D64FE,6535 

64FE 36 65 5F 65 73 65 FD 65 50 66 88 66 AF 66 C8 66 6e—ese ePfl f 奸ネ f 

650E D4 6619 67IF 67 6A 67 CB 67 00 6816 68 3C 68 tf g gjgtg h hCh 

651E 80 68 80 68 DB 68 45 69 73 69 7F 69 92 69 C2 69 -h-hOhEisi 

652E C7 69 C7 69 C7 69 EF 69 又 i 又 i 又 i\i 


これは，頭文字のインデックスポインタ群です。 


06C00B53F2277 
01388 D4779CCC 
8888889999999 
6666666666666 


NOPQRSTUVUXYZ 
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2-2-4 中間言語テーブルの形成 


中間言語は，キーワードの1文字目によって，アルファベット順に分類されています。各データ 
は，キーワードの文字数一1,キーワード，中間言語，フラグから成り立っています。キーワードの 
データは1文字目が省略され （1 文字目でグループ分けしてあるので不要)，そのかわりキーワード 
の先頭にキーワードの文字数一1を示す1バイトの数字があります。また，中間コードについては， 
1バイトのものはそのままの形で，2バイトのもの （ FF + XX ) は，最上位ビットを0にして1バ 
イトで表わせるようにしてあります。 


〈中間言語コードが1バイト〉 


キーワード 

A 

U 

T 


41 

55 

I 

54 

I 

6536 

03 

I 

55 

I 

54 


AUTO 4文字一1 


0 80中間言語コード 

4 F - 

I I 

4 F 80 90 

I 

フラグ 


〈中間言語コードが2バイト〉 


キーワード 

H 

E 

X 

$ 


48 

45 

I 

58 

I 

24 

I 


03 

丄 

45 

丄 

58 

丄 

24 


HEX $4 文字一1 


FF A 4 中間言語コード 


24 00 

1 

フラグ 


次のプログラムで，これらのデータ（キーワードと中間言語，及び，フラグ）を出力してみましょ 
う。リスト 2-1 が表 2-1, リスト 2-2 が表2-2，リスト 2-3 が表 2-3 を出力するものです。 

リストの先頭が0行になっていますが，これは，入力しなくてよいです。0行の作り方は第14章 
ランダムテクニックでお教えします……。 


リスト 2-1 1バイトの中間コードをコードの昇順に表示する 
0 ^AVE'KEYl" 

10 DIM SN( 10 ) , CODE(144),KY.UORD$(144),FL6(144) 

20 DEF FNHX$(X)=RIGHT$('00"+HEX$(X),2) 

30 DEF FNUD$(X$)=LEFT$(X$+SPACE$(10)*10) 

40 DEF FNKY$(X)=FNHX$(I+&H80+X) + '< i +FNHX$(FLG(I+X)) + ") : 
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+FNUD$(KY•UORD$(I+X))+• * 

50 DEF SE6=&H 60 

60 AD=PEEK(&H140A)+256*PEEK(&H140B)s'GET KEY WORD TABLE POINTER 
70 BSE=PEEK(&H140C)+256^PEEK(&H140D) : x GET SEGMENT 
80 CHR=ASC("A"):DEF SEG=BSE 
90 UHILE CHRC92 

100 ADD=PEEK(AD)+256*PEEK(AD+l) : x CURRENT ALPHABET ADDRESS 

110 NADD=PEEK(AD+2)+256^PEEK(AD+3) : ' NEXT ALPHABET ADDRESS 
120 GOSUB 光 LST 
130 AD=AD+2 ： CHR=CHR+1 
140 UEND 

150 GOTO ^PRT.OUT 
160 END 
170 *LST 

180 UHILE ADD<NADD 
190 LN=PEEK(ADD) 

200 FOR 1=1 TO LN ： SN(I)=PEEK(ADD+I)：NEXT I 
210 CODE=PEEK(ADD+LN+1):IF CODE く 128 THEN 260 
220 CNT=CODE-128 : CODE(CNT)=CODE 
230 FLG(CNT)=PEEK(ADD+LN+2) 

240 IF CHR=ASC("C" ) THEN KY*UORD$(CNT) = B " ELSE KY.UORD$(CNT) 
=CHR$(CHR) 

250 FOR 1 =1 TO LN: KY. UORD$ (CNT) =KY. UORD$ (CNT) -f CHR$ (SN(I)) ： NEXT 

260 ADD=ADD+LN+3 : UEND : RETURN 

270 ^PRT.OUT 

280 FOR 1=0 TO 47 

290 PRINT FNKY$(0); 

300 IF I+&HB0 く 256 THEN PRINT FNKY$(&H30); 

310 IF I+&HE0 く 256 THEN PRINT FNKY$(&H60) ELSE PRINT 
320 NEXT 


•/ GET KEY WORD LIST 
ド NEXT ALPHABET 

PRINT OUT KEY UORDS 


リスト 2-2 2 バイトの中間コードをコードの昇順に表示する 

0 / SAVE'KEY2 1 

10 DIM SN( 10 ) , CODE(144),KY•UORD$(144),FLG(144) 

20 DEF FNHX$(X)=RIGHT$( 5 00-+HEX$(X),2) 

30 DEF FNUD$(X$)=LEFT$(X$+SPACE$(10),10) 

40 DEF FNKY$(X)="FF B +FNHX$(&H80+I+X) + B ( B +FNHX$(FLG(I+X))+') : 

'+FNUD$(KY.UORD$<I+X))+• " 

50 DEF SEG=&H 60 

60 AD=PEEK(&H140A)+256*PEEK(&H140B):'GET KEY UORD TABLE POINTER 
70 BSE=PEEK(&H140C)+256^PEEK(&H140D)5" GET SEGMENT 
80 CHR=ASCCA');DEF SEG=BSE : x SET THE SEGMENT 

90 UHILE CHRC92 

100 ADD=PEEK(AD)+256*PEEK(AD+1) : "CURRENT ALPHABET ADDRESS 
110 NADD=PEEK(AD+2H256*PEEK(AD+3)〆 NEXT ALPHABET ADDRESS 
120 GOSUB ^LST GET KEY WORD LIST 

130 AD=AD+2jCHR=CHR+1 j" NEXT ALPHABET 

140 UEND 

150 GOTO ^PRT.OUT : " PRINT OUT KEY UORDS 

160 END 
170 *LST 

180 UHILE ADD く NADD 
190 LN=PEEK(ADD) 

200 FOR 1=1 TO LN:SN(I)=PEEK(ADD+I):NEXT I 
210 CODE=PEEK(ADD+LN+1) : IF C0DE>127 THEN 260 
220 CNT=CODE : CODE(CNT)=CODE 
230 FL6(CNT)=PEEK(ADD+LN+2) 
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240 IF CHR = ASCC [_) THEN KY * UORD $( CNT ) = ' 1 ELSE KY . UORD $( CNT ) 
=CHR$(CHR) 

250 FOR 1=1 TO LN:KY.UORD$(CNT)=KY.UORD$(CNT)+CHR$(SN(I)):NEXT 

260 ADD=ADD+LN+3 : UEND : RETURN 

270 *PRT.OUT 

280 FOR 1=0 TO 47 

290 PRINT FNKY$(0); 

300 IF I+&HB0<256 THEN PRINT FNKY$(&H30 )； 

310 IF I+&HE0<256 THEN PRINT FNKY$(&H60) ELSE PRINT 
320 NEXT 


リスト 2-3 キーワードの頭文字の昇順に表示する 
0 /SAVE-KEY3" 

10 DIM SN( 10 ) , KY$( 255 ) , CODE(255),FLG(255) 

20 DEF FNHX$(X 〉 =RIGHT$(_00_+HEX$(X),2) 

30 DEF FNUD$(X$)=LEFT$(X$+SPACE$(10),10) 

40 DEF SEG=&H 60 

50 AD=PEEK(&H140A)+256*PEEK(&H140B) : 'GET KEY WORD TABLE POINTER 
60 BSE=PEEK(&H140C)+256*PEEK(&H140D)：' GET SEGMENT 

70 CHR=ASC("A")sDEF SEG=BSE:COUNT=-l:"SET THE SEGMENT 
80 UHILE CHR<92 

90 ADD=PEEK(AD)+256*PEEK(AD+1) ^ NOU ALPHABET ADDRESS 

100 NADD=PEEK(AD+2)+256*PEEK(AD+3):' NEXT ALPHABET ADDRESS 
110 GOSUB *LST :/ GET KEY UORD LIST 

120 AD=AD+2 ： CHR=CHR+1 NEXT ALPHABET 

130 UEND 

140 GOTO ^PRT.OUT 
150 END 
160 关 LST 

170 UHILE ADD く NADD 

180 LN=PEEK(ADD):COUNT=COUNT+l 

190 FOR 1=1 TO LN:SN(I)=PEEK(ADD+I)：NEXT I 

200 CODE(COUNT)=PEEK(ADD+LN+1) 

210 FLG(COUNT)=PEEK(ADD+LN+2) 

220 IF CHR=ASC(_[_) THEN KY$(COUNT)=•■ ELSE KY$(COUNT)=CHR$(CHR) 

230 FOR 1=1 TO LN ： KY$(COUNT)=KY$(COUNT)+CHR$(SN(I))jNEXT 

240 ADD=ADD+LN+3 

250 UEND 

260 RETURN 

270 ^PRT.CODE 

280 IF CODE<&H80 THEN PRINT _FF 
290 PRINT FNHX$(CODE OR &H80 )""； 

300 RETURN 

310 ^PRT.OUT 

320 FOR J=0 TO 66 

330 I=J:TB=18:G0SUB *PRT,SUB 

340 I=J+67 ： TB=42:GOSUB *PRT*SUB 

350 I=J+67*2：IF I>255 THEN PRINT：GOTO 370 

360 TB=67:GOSUB *PRT•SUB:PRINT 

370 NEXT 

380 END 

390 ^PRT.SUB 

400 IF ASC(FNUD$(KY$(I)))=32 THEN 440 
410 CODE=CODE(I):PRINT FNUD$(KY$(I ))""； 

420 GOSUB ^PRT.CODE 

430 PRINT TAB(TB)'( > FNHX$(FLG(I)) i ) •; 

440 RETURN 
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UHILE 

WEND 

URITE 

LIST 

SEG 

SET 

KINPUT 

SRQ 

CMD 

IRESET 

ISET 

POL し 

RBYTE 

UBYTE 

KPLOAD* 




关 


E0(80) 

EK80) 

E2(80) 

E3(90) 

E4(80) 

E5(80) 

E6(80) 

E7(80) 

E8(80) 

E9(80) 

EA(80) 

EB(80) 

EC(80) 

ED(80) 

EE(80) 

EF(00) 

F0(00) 

F1(00) 

F2(00) 

F3(00) 

F4(00) 

F5(00) 

F6(00) 

F7(00) 

F8(80) 

F9(80) 

FA(80) 

FB(80) 

FC(80) 

FD(80) 

FE(00) 

FF(80) 


注）ホ印は PC -9801 F.E 
で追加されたもの 


80(90) 

AUTO 

81(80) 

BSAVE 

82(80) 

BLOAD 

83(80) 

BEEP 

84(80) 

CONSOLE 

85(80) 

COPY 

86(80) 

CLOSE 

87(80) 

CONT 

88(80) 

CLEAR 

89(80) 

CALL 

8A(80) 

COMMON 

8B(80) 

CHAIN 

8C(80) 

COM 

8D(80) 

CIRCLE 

8E(80) 

COLOR 

8F(80) 

C し S 

90(90) 

DELETE 

91(A0) 

DATA 

92(80) 

DIM 

93(80) 

DEFSTR 

94(80) 

DEFINT 

95(80) 

DEFSNG 

96(80) 

DEFDBL 

97(00) 

DSK0$ 

98(80) 

DEF 

99(D0) 

ELSE 

9A(80) 

END 

9B(80) 

ERASE 

9C(90) 

EDIT 

9D(80) 

ERROR 

9E(80) 

FOR 

9F(80) 

FIELD 

A0(80) 

FILES 

AK00) 

FN 

A2(80) 

DRAU 氺 

A3(90) 

GO TO 

A4(90) 

GOSUB 

A5(80) 

GET 

A6(80) 

HELP 

A7(80) 

INPUT 

A8(80) 

IF 

A9(80) 

KEY 

AA(80) 

KILL 

AB(80) 

KANJI 

AC(80) 

LOCATE 

AD(00) 

し？ 

AE(90) 

LLIST 

AF(80) 

LET 


B0(80) 

LINE 

B1C80) 

LOAD 

B2(80) 

LSET 

B3(80) 

LFILES 

B4(80) 

MOTOR 

B5(80) 

MERGE 

B6(80) 

MON 

B7(80) 

NEXT 

B8(80) 

NAME 

B9C80) 

NEU 

BA(80) 

NOT 

BB(80) 

OPEN 

BC(80) 

OUT 

BD(80) 

ON 

BE(80) 

OPTION 

BF(80) 

OFF 

C0(00) 

? 

Cl(80) 

PUT 

C2(80) 

POKE 

C3(80) 

PSET 

C4(80) 

PRESET 

C5(80) 

PAINT 

C6(90) 

RETURN 

C7(80) 

READ 

C8(90) 

RUN 

C9(90) 

RESTORE 

CA(00) 

CB(90) 

RESUME 

CC(80) 

RSET 

CD(90) 

RENUM 

CE(80) 

RANDOMIZE 

CF(80) 

ROLL 

D0(80) 

SCREEN 

Dl(80) 

STOP 

D2(80) 

SWAP 

D3(80) 

SAVE 

D4(80) 

SPC 

D5(80) 

STEP 

D6(90) 

THEN 

D7(80) 

TRON 

D8(80) 

TROFF 

D9(80) 

TAB 

DA(80) 

TO 

DB(80) 

TERM 

DC(80) 

USING 

DD(00) 

USR 

DE(80) 

UIDTH 

DF(80) 

WAIT 


注) REM の中間コードは FF になっていますが，実際にはこれが使われず， 

00 52 45 40 
N L R E M 
の形で格納されます。 

文の途中で，中間コード0があらわれるとインタプリタはそこからあとは REM 文として処理 
します。 

表 2-1 1バイトで表わされる中間コード （） の中はフラグ 


D R uv p D M 
N R O O M O E 
AOXEIM¥R 
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FF 80(00) : DATE$ FF 
FF 81(00) : MID 丰 FF 
FF 82(80) : POINT FF 
FF 83(80) : PEN FF 
FF 84(00) : TIME$ FF 
FF 85(80) ; VIEW FF 
FF 86(80) : UINDOU FF 
FF 87(00) : FF 
FF 88(00) : FF 
FF 89(00) : FF 
FF 8A(00) : FF 
FF 8B(00) : FF 
FF 3C(00) : FF 
FF 80(00) : FF 
FF 8E(00) : FF 
FF 8FC00) : FF 
FF 90(80) : ABS FF 
FF 91(80) ： ATN FF 
FF 92(80) : ASC FF 
FF 93(00) : ATTR$ FF 
FF 94(80) : CSRLIN FF 
FF 95(80) : CINT FF 
FF 96(80) : CSNG FF 
FF 97(80) : CDBL FF 
FF 98(80) : C\Jl FF 
FF 99(80) : CVS FF 
FF 9A(80) : CVD FF 
FF 9B(80) : COS FF 
FF 9C(00) : CHR$ FF 
FF 9D(80) : DSKF FF 
FF 9E(90) : ER し FF 
FF 9F(80) : ERR FF 
FF A0(80) : EXP FF 
FF Al(80) : EOF FF 
FF A2(80) : FIX FF 
FF A3(80) ： FPOS FF 
FF A4(00) : HEX$ FF 
FF A5(80) : INSTR FF 
FF A6(80) i INT FF 
FF A7(80) •• INP FF 
FF A8(00) : INKEY$ FF 
FF A9(80) : LPOS FF 
FF AA(80) : LOG FF 
FF AB(80) : LOC FF 
FF AC(80) : し EN FF 
FF AD(00) : し EFT$ FF 
FF AE(80) : し OF FF 
FF AF(00) : MKI$ FF 


B0(00) 

MKS$ 

FF 

E0(00) 

B1(00) 

MKD$ 

FF 

Elf 00) 

B2(80) 

MAP 

FF 

E2(00) 

B3(00) 

OCT$ 

FF 

E3(00) 

B4(80) 

POS 

FF 

E4(00) 

B5(80) 

PEEK 

FF 

E5(00) 

B6(00) 

RIGHT$ 

FF 

E6(00) 

B7(80) 

RND 

FF 

E7(00) 

B8(80) 

SEARCH 

FF 

E8(00) 

B9(80) 

SGN 

FF 

E9(00) 

BA(80) 

SQR 

FF 

EA(00) 

BB(80) 

SIN 

FF 

EB(00) 

BC(00) 

STR$ 

FF 

EC(00) 

BD(00) 

STRING$ 

FF 

ED(00) 

BE(00) 

SPACE$ 

FF 

EE(00) 

BFC80) 

TAN 

FF 

EF(00) 

C0(80) 

VAL 

FF 

F0(00) 

C1(00) 

DSKI$ 

FF 

F1(00) 

C2(80) 

FRE 

.FF 

F2(00) 

C3(80) 

VARPTR 

FF 

F3(00) 

C4(00) 

INPUT$ 

FF 

F4(00) 

C5(00) 

JIS$ 

FF 

F5(00) 

C6(00) 

KNJ$ 

FF 

F6(00) 

C7(80) 

KTYPE 

FF 

F7(00) 

C8(80) 

KLEN 

FF 

F8(00) 

C9(00) 

KMID$ 

FF 

F9(00) 

CA(00) 

KEXT 丰 

FF 

FA(00) 

CB(80) 

KINSTR 

FF 

FB(00) 

CC(00) 

AKCNV$ 

FF 

FC(00) 

CD(00) 

KACNV$ 

FF 

FD(00) 

CE(80) 

IEEE 

FF 

FE(00) 

CF(80) 

STATUS 

FF 

FF(00) 

D0(00) 




D1(00) 




D2(00) 




D3(00) 




D4(00) 




D5(00) 




D6(00) 




D7(00) 




D8(00) 




D9(00) 




DA(00) 




DB(00) 




DC(00) 




DD(00) 




DE(00) 




DF(00) 





表 2-2 2 バイトで表わされる中間コード （） の中はフラグ 






(80) 

(80) 

(80) 

(80) 

(80) 

(90) 

(80) 

(90) 

(90) 

(80) 

(90) 

(80) 

( 00 ) 

(80) 

(90) 

(80) 

(80) 

(80) 

(80) 

(80) 

(80) 

(80) 

(80) 

(80) 

(80) 

(80) 

(80) 

(80) 

( 00 ) 

( 00 ) 

( 00 ) 

(80) 

(80) 

(80) 

(80) 

(90) 

(80) 

(80) 

(80) 

(80) 

(80) 

(80) 

( 00 ) 

(80) 

( 00 ) 

(80) 

(80) 

(80) 

(80) 

(80) 

(80) 

(80) 

(80) 

(80) 

(80) 

(80) 

( 00 ) 

( 00 ) 

( 00 ) 

( 00 ) 

( 00 ) 


PRESET 

POINT 

PAINT 

PEN 

POLL 

RETURN 

READ 

RUN 

RESTORE 

REM 

RESUME 

RSET 

RIGHT$ 

RND 

RENUM 

RANDOMIZE 

ROLL 

RBYTE 

SCREEN 

SEARCH 

STOP 

SUAP 

SAVE 

SPC 

STEP 

SGN 

SQR 

SIN 

STR$ 

STRINGS 

SPACE$ 

SEG 

SET 

STATUS 

SRQ 

THEN 

TRON 

TROFF 

TAB 

TO 

TAN 

TERM 

TIME$ 

USING 

USR 

狐 

VIEU 

VARPTR 

UIDTH 

UINDOU 

UAIT 

WHILE 

WEND 

WRITE 

UBYTE 

XOR 


关 

/ 


HELP 
INPUT 丰 
INPUT 
IF 

INSTR 
I NT 
INP 
IMP 

INKEY 丰 
IEEE 
IRESET 
ISET 

JIS 丰 

KEY 

KILL 

KANJI 

KINPUT 

KNJ$ 

KTYPE 

KLEN 

KMID$ 

KEXT$ 

KINSTR 

KACNV$ 

KPLOAD 

LOCATE 

LPRINT 

L? 

LIST 

LLIST 

LPOS 

LET 

LINE 

LOAD 

LSET 

LFILES 

LOG 

LOC 

し EN 

LEFT$ 

し OF 

MOTOR 

MERGE 

MOD 

MKI$ 

MKS$ 

MKD$ 

MID 丰 

MON 

MAP 

NEXT 

NAME 

NEU 

NOT 

OPEN 

OUT 

ON 

OR 

OCT$ 

OPTION 

OFF 


AUTO 

AND 

ABS 

ATN 

ASC 

ATTR$ 

AKCNV$ 

BSAVE 

BLOAD 

BEEP 

CONSOLE 

COPY 

CLOSE 

CONT 

CLEAR 

CSRLIN 

CINT 

CSNG 

CDBL 

CVI 

CVS 

CVD 

COS 

CHR$ 

CALL 

COMMON 

CHAIN 

COM 

CIRCLE 

COLOR 

CLS 

CMD 

DELETE 

DATA 

DIM 

DEFSTR 

DEFINT 

DEFSNG 

DEFDBL 

DSKO$ 

DEF 

DSKI$ 

DSKF 

DATE$ 

DRAU 

ELSE 

END 

ERASE 

EDIT 

ERROR 

ERL 

ERR 

EXP 

EOF 

EQV 

FOR 

FIELD 

FILES 

FN 

FRE 

FIX 


2 3 6 7 8 9ABCDE F F 4 053 6 
8 8 BB B BBBBBB c B 8 c 8 c 8 

4F5FB6789FBCFFDEFC0F12345FFFFFF45 F.7 6789AFBFCDFFFEFF012DA 34567 
CFCFECCCCFCCFFCCCEDFDDDDDFFFFFFEEFEDDDDDFDFDDFFFDFDEEEEFFFFFF 


0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
988880088888888888888880888888889 A 88888080808 D 889898888888088 

/1\ /V /r\ /lx /f\ /IN /r\ /IN yc y(\ yf\ /V /fv /V /IN /IN /V yfv /IN /IN yf\ /V /l% /l\ /V /IN /V /IN /f\ yf\ /V /V /l> /V yf\ /IN /V /fv /l\ /V /f\ /r\ yi\ /IN /l\ /f\ /(V /l% /\ /r\ /t\ yc /V /IN ✓(N /lx /fv xf\ y(N 


0 12 3c 456789 ABC 1 D 0 E F 01 22 
9 9 9 9c 999999999 c 9 8 9 9 A A c A 

08FFFFF1 2345678 FFFFFFFFF9ABCDEF 8012345678 FFF29ABCDFFFFBEF01FF 
8FFFFFF 88888888 FFFFFFFFF 8888888 E 999999999 FFFA 99999 FFFFF99AAFF 


sly ) vly \y ) s)/ \y \»/ \/ \/ )/ \—/ \y \y \M/ \Jy \1/ \—/ \y \—/ ) ) N1/ )y \y \)y \y. \/ SI/ %Jy \/ )/ \M/ \/ ) V), \/ \y \/ ) \y \y \y \ly \y. \ly \y \Jr 
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
8088888808880888808800808880998888888880888800008888888888088 

✓lx /IN yf\ yf\ /y yl\ yf\ /\ /V /V ✓TV /i\ /IN /IN /(X /IN /IN /IX ✓(% /f\ yfv /Is xf\ /l\ /IX /V /fv /l\ /lx /fv y(x ycx y(\ x(\ /fv /\ /l\ yrv /V /r\ yf\ yl% /fv /f\ /V yrlx yf\ /IN yf\ /IN yr\ /IX /1> ✓1> /IX /(N yfv /IN /IX /VN 


SA5A6A7A8CE 


C5 


6 7 8 9 A B D 

c c c c c c c 


A9 


AAABACADAE 


F 0 11 2 
A B B 8 B 


B3 


6F78FFFCFF9AF9AB6FFFFFFFECDD3EFF0123FFFFF45DFFFF6F789ABCD9FEF 

afaaffffffeefaaaefffffffeaaaeafabbbbfffffbbfffffbfbbbbbbbffbb 
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表 2-3 中間コード表 （） の中はフラグ 

中間コードを昇順に出力するプログラム（リスト2-1， 2-2) では，本来は，ソートプログラムが必 
要となる分けですが，配列の添字を使ってうまく自動的にソートするようになっています。これ 
は，中間コードが，256個以下と少ないこと，キーワードと1対1に対応していて二重になることが 
ないこと，という性格があるからできたことなのです。詳しくは，プログラムを読んで下さい。 

リスト 2-3 キーワードの頭文字の昇順に表示するプログラムでは，キーワードが，頭文字の順に 
整理されて，テーブルを作っているので，ソートプログラムは必要ありません。 

2-3 ラベルテーブル 

ラベルテーブルは，シンボルテーブルセグメントに存在し，セグメント 60 H の， 6 AEH , 6 AFH 
で示されるアドレスから， 6 B 0 H ，6 B 1 H で示されるアドレスまでです。 

ラベルは，この中に図 2-3-1 の様な形式で頭文字のアルフアベット順に登録されます。 



図 2-3-1 ラベルテーブル 中の ラベルの 登録 


注意しなければならないのは，個々のラベルの情報が格納される先頭アドレスは，必ず偶数であ 
るということです。そのために，もし，次のラベルが奇数アドレスで始まるようであれば，ラベル 
名のあとに無用の1バイトをもうけて，アドレスを調節しているのです。なぜこのようにしたかと 
いうと，8086は奇数アドレスより偶数アドレスをアクセスする方が速いからなのです。 

それでは，実際にラベルがどのような形で登録されるか見てみましょう。 


\y \t/ \y \y 
CSD 0 0 0 0 
0 0 0 0 0 
/V yf\ /IX /V yf\ 


E 0 12 0 
F F F F c 


¥ • 


= <?• 


\y \1/ Ny VI/ 
0 0 0 0 0 
8 8 8 8 8 8 
yr\ /IN /V /\ /IN ycx 

4 5 
B B 

0 12 F F 3 
c c c F F c 


N E K T 
I T K s E E 
R u o o E s 
p p p p p p 


\J Nly. SI/ \/ \Jy 
0 0 0 0 0 0 
8 9 9 9 8 0 

/f\ /Is /1> /V /f\ /IN 


3 


M 


F 3 3 4 5 F 
F A A A A F 


OB 

s o T u $ 
o T s T X 
p o o o E E 
F 6 G 6 G H 
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次のプログラムを入力した後， RUN を実行して下さい。 


END 

*START 

GOSUB ^INITIALIZE 

/ 

纏 IN 
R=RND*500 

X=RND*600 : Y=RND^180 
CLR=INT(RND*7+1) 
CIRCLE(X,Y),R,CLR 
GOTO 关 MAIN 

〆 

^INITIALIZE 
SCREEN 0,0 
RANDOMIZE 
C し S 3 
RETURN 


最初の1000行に END があるので，この1000行だけを実行して，このプログラムは終了しますが， 
全てのラベルは登録されています。これは， RUN コマンドの最初にインタプリタ内で全ラベルを登 
録するルーチンを CALL しているためです。 

これでラベルテーブルができあがりました。各ボインタの値をみてみましょう。 


MON 

h ： C60 

h ： D6AE,6Bl 
06AE 00 01 IE 01 


ラベルテーブルは，シンボルテーブルセグメントの，100 H 番地から，11 EH 番地にあるわけです 
ね。それではそちらの方をプログラムと比較して見てみます。シンボルテーブルセグメントの値は， 
1410 H ， 141 1 H 番地に格納されています。 


h]Dl 410,1411 
1410 00 16 
h]C1600 
h]D0,5 

0000 00 01 IE 01IE 01 
h]D100,UE 

「 INITIALIZE の頭文字丨 フベル名 

- INITIALIZE 10文字の頭文字を除いた字数9 

4F 49 54 49 41 4C 49 5A 


ROM 版では 0010 即ち 100 0H になります。 

モニタのアクセスするセグメントをかえます。 
シンボルテーブルセグメントのワークエリアをみる。 
BASIC のワークエリアの 6 AE 〜 6 B 1 と同じものがこ: 


にもある。 



ラベルのついている行の先頭アドレス 


0100 囲 ！！] 4E 49 54 49 41 4C 49 5A 145 1411] 
0110 4149 4E 54 78 23 53 04 54 4152 54 


EE 


23画關 


4F 23 00 


I NITIALIZEA/#M 
AINTx#S TARTO# 


-次のラベルの先頭アドレスを 
偶数にするための不用の1バイト 

•次のラベルがちようど偶数アドレスから始まるので 
不用の1バイトがない。 


00 0 0 CSJ 0 0 0 0 0 0 0 0 0 0 0 

0123456789012345 

0 QV 0 0 QV 0 0 0 0 0 IX 1IX 1IX 1 
1111111111111111 
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h]D 2348,2422 
2348 07 00 E8 
2358 4152 541 
2368 54 49 41 
2378 0C 00 10 
2388 02 52 00 
2398 58 00 FI 
23A8 B7 F5 0F 
23B8 A6 28 FF 
23C8 28 58 00 
23D8 0E 00 42 
23E8 4C 04 01 
23F8 54 49 41 
2408 2C 10 00 
2418 0113 00 


黍 L 年 * S T 
ART 、关 I NI 

TIALIZE • 

AIN 

R H キ it 日 丰 
X 円牛 it X : Y n 
キ it エ • C し R 円 

ヲ（キ *1 月） 8 I 

(X ,Y ),R ,C LR 
B j *M AIN 
L V NI 

TIALIZE 'ミ 

, j ホ t + 

〜 痛 


先程のサンプルプログラムの内部表現です。テキストの中ではラベルは， 


2 A 


□ □ 


頭文字のないラベル 


ラベル名の長さ一1 
•頭文字 

- * 


という形でおかれています。ラベルの先頭の*は，掛算の中間コード F 5 H には変換されませんの 
ですぐ区別することができます。 

ラベルテーブルのオフセットアドレスは BASIC のワークエリアの 6 AEH 〜 6 B 1 H にあると述 
ベましたが，同じものが，シンボルテーブルセグメント（通常 DISK 版1600 H , ROM 版1000 H , 
これは1410 H , 141 1 H に格納してあります）の，オフセット〇〜5にも格納してあります。 

2-4 変数テーブル 


2-4-1 単純変数テーブル 

単純変数 テーブルは，ラベルテーブルの 後に作られます。 この 領域は， シンボルテーブル セグメ 
ントのオフセット，0002 H ， 0003 H で示されるアドレスから，0004 H ， 0005 H で示されるアドレ 
スで示されるアドレスの1つ前までです。 

プログラム中で変数が使われると，その型に応じた形式で，それが使われていた順番に登録され 
ていきます。 


h ： C60 ; BASIC のワークエリアのセグメント 

h]D6A4 , 6A7 : BASIC のテキスト TOP, END 

06A4 48 23 22 24 


54000 FF 800 

4E7A 411228 

04210 FF050 

3 

5 

2A 


9042FFD009 

4000FF8004 

E 

4 

9 

0 

9 

4 

2A 


4 21 0 F F - 

9004024 C0 
000205040 

91F09C82E 

400054304 


1A40A1 2039 

0200100044 


0 F 
18 

12 
0 0 

0 4 
D 0 

2 4 
0 7 

4 0 
0 0 


316 

0 0 0 

2 4 0 

F A 0 

0 2 8 

0 0 0 


D 3 0 3 

0 0 0 101 


0 c 5 

0 F 4 

A 0 A 

9 0 5 


0A36C11090 

0341240600 

1120034000 

0000000000 

42492 D6BE6 
F 0025450 cc 

C8E1CA0021 

1521220000 


5 

F 


c 0 3 9 1 2 

1 0 F 2 0 1 


7 5 5 7 0 3 0 

B F 11 0 A 0 


1491F 705917 

0140FB0F502 


3 0 c 4 1 

0 0 4 0 F 


F 4 7 c 4 0 

F B B 2 0 0 


4 4 
0 0 

A E 

6 7 

0 0 
0 0 

7 7 
0 0 
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PC -8001 や PC -8801 と違って，リスト形式を使って，頭文字のアルファべット順にリンクポイン 
夕をもって，並んでいます。各変数は次の様な形式で登録されます。 


単純変数テーブルの構造 


整数型 

リンクポインタ 

2 

変数名 5 " 

データ 




(2 バィト） 

个 


▲ (2 バイト） 



単精度型 

リンクポインタ 

4 

変数名$ 

データ 



(2 バィト）. 

t 


▲ (4 バイト） 


倍精度型 

リンクポインタ 

8 

変数名* 

データ 


(2 バィト） 

t 


▲ 

(8 バイト） 

文字型 

リンクポインタ 

3 

変数名# 

ディスクリプタ絲 



(2 バイト） f ▲ ( 4 バイト） （ AVARPTR で示される） 


頭文字のアルファべットが最初に出てきたものが 
ワークエリアのポインタによってさされている。 


〇変数名 


2番目以降はリンクポインタによってさされる。 


頭文字をとった変数名 
( I 文字変数のときはない） 
—変数名の長さ一 I 

( I 文字変数のときは 0) 


注）次の変数のリンクポインタが 
奇数アドレスにくるときは， 
変数名のすぐあとに不用の I 
バイトを入れて偶数アドレス 
になるようにしています。こ 
れは CPU 8086が偶数アドレ 
スをアクセスする方が速いか 
らです。 


来*)ストリングデイスクリフ。夕 


文字列格納のオフセット 
アドレス 

—リロケーシヨンコード 

—文字列の長さ 


• VARPTR で得たセグメントに 
データが有る。（ふつうセグメ 
ント 60 H の I 4 I 0 H ， 1411 H のポ 
インタに入っています。） 
.ベースレジスタが60 H のセグメ 
ントにデータが有る。（セグメ 
ント 60 H は3、つう BASIC のテ 
キスト中に文字列があることを 
意味する。） 


来**)リンクポインタ 

各変数は頭文字を除いた形で並んでいますので，1文字変数のときは，数字データだけがあると 
いう感じになります。これだけみても，どのデータがどの変数に対応しているのか分かりません。 
では，どのようにして，対応づけられているのでしょうか？ 

頭文字が A の最初の変数の位置は，シンボルテーブルセグメント（セグメント60 H の1410 H , 
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APOLO^=100 
ZEBRA^=-100 
AMERICA=500 
JAPAN#=5# 
ABC$='12345 


h ： C1600 ; DISK 版の値 （ROM 版は100 OH です。) 

h]D 0,5 

0000 00 01 00 013C 01 

、- v -，、- 、一 - 〆 、-ゾ- 〆 

ラベルテーブル単純変数フリーエリア TOP 
TOP エリア 

TOP 


1411 H に格納されています）のオフセツトアドレス〇〜 FFH の256バイトにワークエリアがあり 
ますが，この 3 CH ， 3 DH に格納されているのです。あと，順に 3 EH ，3 FH が B に，40 H ， 41 H 
が C に， -6 EH , 6 FH が Z に対応しています。 

そして，頭文字が A の2番目の変数は，1番目の変数のリンクポインタによって，さされたとこ 
ろにあるのです。 

これを図に示すと次のようになります。 

(3 CH , 3 DH ) 


1 


I 番目の変数- 


14 


00 


02 


04 


POLO 


64 


00 


1 — APO し0 

一このアドレスを X とすると 
X + I 4 H 


' ——データ 


2 番目の変数— 


I E 


00 


02 


06 


MERICA 


2 A 


FF 


データ 


1 — AMERICA 

図 2-3-1 変数のリンクポインタ 


実際の例で確かめてみましょう。 

次のプログラムを実行した後，各ポインタの値及び単純変数テーブルを見てみましょう< 


0 0 0 0 0 
0 12 3 4 
11111 
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※単純変数 テーブル 


-頭文字 Z の最初の変数の位置 


ちょっと分かりにくいので，各変数ごとに見ていきましょう。 

• APOLO % = 100, AMERICA =500, ABC $= ''12345" 

オフセットアドレス 3 CH ， 3 DH をみると頭文字 A の最初の変数の位置は0002です。そこで単 
純変数 TOP のオフセットアドレス 100 H に0002 H を足して，102 H 番地をみればよいことが分か 
ります。 


0100 14 00 02 04 50 4F 4C 4F 64 00 

r ~i r~ 

型変数名 1 POLO 100 

次に A で始まる変数の位置 

102 H + 14 H = 116 H 


0114 1E 00 04 06 4D 45 52 49 43 41 00 00 7A 89 

~~ T 1 I 

型 変数名 A MERICA 500 


次の A で始まる変数の位置 
116 H + 1 EH = 134 H 


0132 00 00 03 02 42 43 05 00 E8 F7 

~~ T 1 I 

型変数名 ABC ストリングディスクリプタ 


次の A で 

始まる変数はない。 


f 文字の長さ=5 

t 文字列の格納オフセツトアドレス = F 7 E 8 H 


h]Dl 00,13 B 

0100 14 00 02 04 50 4F 4C 4F 64 00 00 00 02 04 45 42 P0 し Od EB 

0110 52 419C FF IE 00 04 06 4D 45 52 49 43 41 00 00 RAr MERICA 
0120 7A 89 00 00 08 04 4150 414E 00 00 00 00 00 00 z l APAN 
0130 20 83 00 00 03 02 42 43 05 00 E8 F7 ■ BC _ 

※最初の変数の頭文字のリンクテーブル 

h]D3C,6F 

-頭文字 A の最初の変数の位置 

-頭文字」の最初の変数の位置 


0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 

0 0 0 

0 

0 

0 

0 


0 0 0 
0 0 0 

0 0 0 
0 0 0 

c c c C 
3 4 5 6 
0 0 0 0 
0 0 0 0 


38 


























h ] DF 7 E 8 

F7E8 3132 33 34 35 05 00 00 44 32 2D 32 33 00 00 00 


春 ZEBRA % =-100 

頭文字が Z の変数は 1 つしかないので，簡単です。頭文字が Z で始まる最初の変数の位置は，6 
EH ， 6 FH に入っています。その内容が000 CH なので，さっきと同じようにして， 10 CH 番地を 
みればよいことが分かります。 


h ： D10A 

010A 00 00 02 04 45 42 52 41 9C FF 


型 変数名 Z EBRA 一 100 

頭文字が Z の変数は，これだけ。 


• JAPAN #= 5# 

頭文字が j の場合は，最初のポインタが， 4 EH ，4 FH にあるので，前と同様にして， 

h]D122 

0122 00 00 08 04 4150 41 4E 00 _00 00 _00 00 一 00 20 _83 


型 変数名 _ J_APAN 5 # 

頭文字が J の変数はこれでおわりということを示す。 

2-4-2 配列変数テーブル 

配列要素のデータは，セグメント60 H にある，セグメントポインタ （6 A 2 H ，6 A 3 H ) の示す 
セグメントから格納されますが，配列名やその次数等は，先程の単純変数テーブルのすぐ後に作ら 
れます。 

このテーブルのアドレスは，セグメントポインタ （1410 H ， 1411 H ) の示すセグメント（通称シ 
ンボルテーブルセグメント）のワークエリア （0004 H , 0005 H ) に格納されています。 

単純変数と同じように，頭文字のアルファベットで並べてありますが，前のよう•に，リスト構造 
をとっていません。出てきた順ではなくて，次の図のようになっています。 


39 

















ワークエリアの中のポインタ 

ポインタ （74 H ， 75 H ) には頭文字が A の配列群の大きさが入っています。 （76 H ，77 H ) に 
は，頭文字が B の配列群の大きさと，それまでに出てきた配列群の大きさを足したものが入ってい 
ます。以下 Z まで同様に続きます。 

個々の配列群の中は，次のように，頭文字が等しい1つか，複数の配列の性質で構成されていま 
す0 


各配列群の中身 


配列の性質 

配列の性質 


配列の性質 


各配列の性質とは，次のような構成をとります。 


配列の性質 


型 

変数名 

次数 

配列数 

配洳数 


( I バイト）単純変数と同じ （2 バイト） 


-配列要素の格納される 


配列数 


(次数 X2 バイト） 

t / 

〔配列名〕 （ k , も…" 


セグメント 


配列の大きさ 
(バイト) 


(2 バイト） （2 バイト） 


配列群にどのように格納されているか，実際に見てみましょう。 
♦整数型•単精度型 


100 DIM ABC°/o( 3,2 ) , ASA( 2 ) , SYSTEM( 1,1,1) 
110 FOR 1=0 TO 3 
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120 FOR J=0 TO 2 
130 ABC°^( I, J) = I*10+J 
140 NEXT J 
150 NEXT I 
160 / 

170 FOR 1=0 TO 2 
180 ASA(1)=1*100 
190 NEXT I 


※ボインタの値 


h]C1600 

h]D0 

0000 00 01 00 0110 01 00 00 00 00 00 00 00 00 00 00 

Nl - - v* - 11 〆 V ■■ 〆 

ラベルテーブル単純変数配列群 TOP 
TOP TOP 


hDD70,A7 


変数ェリアの大きさ 頭文字が A のもの 


0070 (T0 001 00 00 [1A 001 1A 00 1A 00 1A 00 1A 00 1A 00 
0080 1A 00 1A 00 1A 00 1A 00 1A 00 1A 00 1A 00 1A 00 
0090 1A 00 1A 00 1A 00 1A 00 L2E 001 2E 00 2E 00 2E 00 
00A0 2E 00 2E 00 2E 00 2E 00 T 


頭文字が S のもの. 2 EH — 1 AH = 14 H 


頭文字が B から， R までは， 1 AH になっていますが，これは，1つ前のボインタとの差をとると 
0となることを意味します。そういう配列はないということです。それでは， A はどうかという 
と，1 つ 前が0000になって いるので 

001A-0000 = 1A 

ということになり， 1 AH ( = 26) バイトのエリアが確保されています。そういう配列は，あるとい 
うことです。 

頭文字が T から Z までも等しく，2 EH となっていますが，頭文字が T から Z の配列はないとい 
うことを意味しています。 

次の図に，配列群の格納のようすを示します。 

この例では，頭文字が A のものが 
ABC %, ASA 
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の 2 つあり， S のものが， 

SYSTEM 

の1つあることに注意して見て下さい。 


0110 02 02 42 43 02 00 04 00 03 00 FF 2518 00 

I V 7- 丁丁 

型変数名 ！_ BC 次数 （2) 配列数配列要素が格納 配列の大きさ 

されるセグメント（バイト数） 

011E 04 02 53 41 01 00 03 00 0126 0C 一 00 


型変数名 2 _ SA 次数 （1) 配列数配列要素が配列の大きさ 


格納される 
セグメント 


(バイト数) 


ここまでが頭文字が A の配列群です。 （74,5) = 1 A ですが、110〜129までがちょうど 1 AH ( = 26) 
バイトになります。 


012A 04 05 59 53 54 45 4D 41 03 00 02 00 02 00 02 00 


T I 

型変数名 SYSTEM 


次数 （3) 


配列数 


013A 02 26 20 00 

~ I I 

配列要素が配列の大きさ 
格納される（バイト数） 
セグメント 


ここまでが頭文字が S の配列群です。配列群 S のポインタ（98,9) =2 EH ですが、1つ前のポイン 
夕 (96,7)=1 AH の値をひいて、 

2 EH -1 AH =14 H (=2 0) 

頭文字が S の配列群の大きさは20バイトということになります。 

実際に，配列要素が格納される場所は，上記テーブルで示されたアドレスです。配列 ABC % の要素 
をみてみましょう。 


h ： C25FF 
h]D 0,17 
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ABC % (0,0) 


DIM SYSTEM$(3,2) 

FOR 1=0 TO 3 
FOR J=0 TO 2 

SYSTEM 丰 （ I,J)=STR$(I*10+J) 
NEXT J 
NEXT I 


※ボインタ値 

h ： C1600 

h]D70,AF 

0070 10 00 00 00 
0080 00 00 00 00 
0090 00 00 00 00 
00A0 12 00 12 00 


ABC % (1,0) 

ABC % (2,0) 


ABC % (3,0) 

1 


0000 100 001 BA 00| 114 001 HE 001 [51 0B1[0B 001 115 001 I1F 00] 
0010 102 001 |0C 00| fl6 001 120 001 


ABC % (3,2) 
ABC % (2,2) 

ABC % (1,2) 

ABC % (0,2) 


ABC % (3,1) 
ABC % (2,1) 

ABC % (1,1) 

ABC % (0,1) 


> 文字型配列変数 


- 頭文字 S の配列のポインタ 
12H バイト存在することを示している。 


0 0 0 0 00 
12 3 4 5 6 


0 0 0 0 
0 0 0 0 

0 0 2 0 
0 0 1 0 

0 0 0 0 
0 0 0 0 

0 0 2 0 
0 0 10 

0 0 0 0 
0 0 0 0 

0 0 2 0 
0 0 1 

0 0 1^10 

0 0 0 0 

0 0 2 0 

0 0 10 


0 0 0 0 
0 0 0 0 

0 0 0 2 
0 0 0 1 - 

0 0 0 0 
0 0 0 0 

0 0 0 2 
0 0 0 


43 









































F7C1 

F7D1 

F7E1 


(0， 0) 

(1, 0) 

(2, 0) 

(3, 0) 

(0， 1) 

(1,1) 

(2,1) 

(3， 1) 

(0， 2) 

(1, 2) 

(2, 2) 

(3， 2) 


に対応する。 


参考までに，ストリングディスクリブタの指しているアドレスの中身を示しておきます。 


h]C1600 

h]DF7Cl,F7EC 


2-5 文字列エリア 

文字列エリアには文字型変数の実際の文字列が納められています。 
例として次のプログラムを実行します。 


03 00 El F7 
03 00 DD F7 
03 00 D9 F7 


02 00 
02 00 
02 00 


S YSTEM 
変数名 


配列数 



実際に要素が格納される 
セグメント 


型 

h ： C 160 b 
h ] Dll 01,121 

011011 3] 105 59 53 54 45 4 DI [00] [02 001104 001 [03 0〇1 「FF 251 YSTEM 


0120 30 00 

T 

配列の大きさ(バイト数) 


0 


次の配列群データの先頭 
、を偶数アドレスにする 
ための不用の1バイト 


h]C25FF 

h]D0,2F 


ストリングディスクリプタ 


0000 

0010 

0020 




2 秒 

m 


ン秒 

ム衫 

ナ衫 

k 秒 

ル秒 


チ秒 


21 

21 

0 

0 2 
31 

tH 

10 
3 2 2 


210 
3 21 


3 3 
0 0 



3231 


0 0 
2 2 

3 3 0 
0 0 3 

0 2 0 
3 3 2 

312 
3 3 0 

0 0 1 

2 2 3 

3 3 0 
0 0 2 

10 2 
3 3 0 

3 2 2 
3 3 3 

0 0 0 
2 2 2 

3 3 3 
0 0 0 

210 
3 3 3 

3 21 
3 3 3 

0 0 0 
2 2 2 


7 7 7 
F F F 

51 D 
D D C 

0 0 0 
0 0 0 

3 3 3 
0 0 0 


7 7 7 
F F F 

B 8 5 
E E E 


7 7 7 
F F F 

9 51 
c c C 

0 0 0 
0 0 0 

3 3 3 
0 0 0 
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10 A$="ABC > + ， DE i 
20 B$=CHR$(64) ; CODE OF 

30 A$="1234' 

文字列エリアは，シンボル テーブル セグメントの上位アドレスに位置しています。その上限ボイ 
ンタは，テキストセグメント 60 H 内のワークエリア （6 B 2 H ，6 B 3 H ), 下限ポインタは， (6 B 4 
H ，6 B 5 H ) にあります。このポインタのプログラム実行前と実行後を比較してみましょう。 

実行前 実行後 

06B2 EE F7 EE F7 \Z^> 06B2 EE F7 El F7 

ポインタが動きました。よくみると， （6 B 2 H , 6 B 3 H ) の方のポインタは動いていませんね。 
上限は固定されてい1：，文字列が増えると，下限のポインタが更新されて，アドレスの下位の方へ 
文字列がのびてゆくためです。 

では，実際にその内容をみてみましょう。セグメントは， （1410 H , 1411 H ) に入っています。ふ 
つう， ROM 版の場合1000 H ， DISK 版の場合1600 H です。 


(6 B 4,5) 


文字数 



(6 B 2.3) 


F7E1 3132 33 34 _ 40 _ 4142 43 44 45 關 00 00 40 


A $ のディスクリプタ04 00 ElF 7 


B$ のディスクリプタ〇1〇〇 E6 F 7 


アスキーダンプ (6 B 4,5) 

1234 @ ABCDE 

> V ■■ン 、V 国 〆 

A $ B $ 


最初に A$ に代入された 「ABCDE」 はメモリ上から消えずにそのまま残っているのです。ここで 
さらにダイレクトモードで A$=、、xyz" と行うと次のようになります。 

06B2 EE F7 DD F7 つ n 七 — 技、ノづ 


F7DD 78 79 7A 03 3132 33 34 04 40 014142 43 44 45 xyz 1234 @ ABCDE 


A $ B $ A $ B $ 
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ここで，ガベージコレクションを行ってみましよう。 

? FRE(0) 

こうすると次のようになります。 


06B2 EE F7 E8 F7 


アスキー ダンプ 


F7DD 78 79 7A 03 3132 33 34 04 40 0178 79 7A 03 40 xyz 1234 @ xyz @ 

A $ B $ 

A $ B $ 

現在使用されている 「 xyz 」 と「@」だけが，文字列エリアの後からつめられて， （6 B 4 H ， 6 B 5 H ) 
が移動しました。ここで， B $= 、、アイウ "+、 x ェオ〃と行うと，次のようになります。 


06B2 EE F7 E2 F7 


アスキー ダンプ 


F7DD 78 79 7A 03 31 B1 B2 B3 B4 B5 05 78 79 7A 03 40 xyz 1 アバ！:才 xyz @ 

- --- ♦ --- * 

BS A $ 


B $ 


A $ 


2-6 BASIC プログラム 復活法 

リセットをしたり，電源を1度切ったりすると，テキスト•エリアは〇クリアされてしまい復活 
は不可能ですが， NEW をした場合は，0クリアされずに，リンクポインタとプログラムの終わりを 
示すポインタがクリアされるだけで，プログラム本体は，まだメモリに残っています。したがって 
これらの値を元に戻してやればプログラムは復活するのです。 
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RUN できる状態 


ストをとっても OK のみの状態 


リンクポインタ 

— (6 A 4, 5) テキスト TOP 

00 

00 


NEW 


プログラム 

O 

プログラム 

00 

—(6 A6 , 7) テキスト END 

00 

00 


00 


~~--- 一 



(6 A 4, 5) = (6 A 6, 7) 
テキスト TOP 

=テキスト END 


最初のリンクポインタと 
テキストエンドポインタ （6 A 6, 7) 
を元に戻す。 


これを自動的に行うプログラムを次に紹介します。 


0000 FC 16 IF A1 A4 06 05 04 00 A3 EA 06 BF 47 00 CD 
0010 C4 AC 08 C0 75 F6 8B 04 3D 05 0172 07 46 46 AC 
0020 08 C0 75 FB 8B IE A4 06 29 DE 89 37 8B 07 09 C0 
0030 74 04 01 C3 EB F6 89IE A6 06 CF 


BASIC プログラム復活（セグメント 1 D 00 H , オフセット OH ) 

NEW をした直後に 
CLEAR ，& H 1 D 0 0 
OK 

DEF SEG = & H 1 D 0 0 

OK 

MON 

h ] S 0 

0 0 0 0 0 0 -FC 0 0- …… 

というように、モニタを使って、上のプログラムを正確に打ち込みます。 


















または、 

DEF USR =0 

RE V I VE =0 

OK 

' OK 

A = USR (0) 

CALL REVIVE 

OK 

OK 


として前記プログラムを実行させます。もう，リストがとれる状態になっていますよ。試みに ， LIST 
をとってみて下さい。最後の1文字まで復活していますね。 RUN もできますよ。 

《 BASIC プログラム復活の原理》 

理屈は分かっていても，なぜ，このプログラムで BASIC プログラムが復活するのか知りたいとこ 
ろでしょう。 

このプログラムは大きく分けて，2つの仕事をしています。 

1っは， 

春第1行のリンクボインタの値を計算する。 

もう1っは， 

♦プログラム終了番地を計算する。 

この2つです。 

1つめのリンクボインタの方はちょっとやっかいで， 

〇テキスト TOP のアドレス 
〇文のよみとばし 

〇 REM 文の前の0と行の終わりを示す0との区別 
という3大ポイントがあります。特に， REM 文の前にも0があるところがくせものです。インタプ 
リタは，文中に0があると，リンクポインタを使って，次の行の先頭を割り出し，さっさと次の行 
を実行してしまいますが，我々は今，そのリンクポインタの値を知りたいわけですから困ったもの 
です。テキストの中の REM をモニタで他の文字に変えても REM 文の役わりをします。それで，こ， 
の区別をこうして行いました。 

REM の方は， 

00 52 45 40 

または，0 0 2 7 2 0 

ここは文字のコードになる。普通空白のコード以上です。（220 H ) 
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となっているはずですから，00のあとの2バイトをとってくると， 

4552 H , 又は2027 H 以上 
ということになります。 

ところが，文の終わりの00は，次がリンクポインタですから， 

00 リンクポインタ 

2バイト 

00のあとの2バイトをとると，リンクポインタそのものの値になります。リンクポインタの値は， 
0000〜0105 H 

程度のはず （1 行は255文字以内なので）ですから， 

10 5 H より大きかったら， REM 文 
” 小さかったら，行のおわり 
と判断しました。 

そして， REM 文のよみとばしは，基本的に REM 文の中にヌルコード00は入り込まないとし 
て，行いました。 

テキスト TOP のボインタは， 

セグメント 60 H の （6 A 4 H , 6 A 5 H ) にあります。 

文のよみとばしルーチンは， ROM の中にあって，インタラプトコールで呼び出します。よみとば 
したい部分の TOP アドレスを (6 EAH , 6 EBH ) に入れて， 

BF 4 7 0 0 MOV D 1,4 7 H 

CD C 4 I NT 0 C 4 H 

とすればよいのです。出力の次の文のアドレスは （6 EAH ，6 EBH ) に入りますが，同じものが， 
SI レジスタにも入っています。 

フローチャートを次に示します。 
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: LODS の方向を増加の方にする。 
SS ; DS の値を 60H にする。 

DS 

AX , C 06 A 4 D ;テキスト TOP を 6EA,B に入れる。 

AX ,0004 

[06 EA],AX 


FC 

16 

IF 

A 1 A 406 

050400 

A 3 EA 06 



プログラム ソース リストを次に示します。モニタのアセンブラ （DISK BASIC 起動時）で入力 
できます。 


DSPUVDUV 

L u O O D 〇 
c p p M A M 


012369 

0 CS5 QD 0 0 CD 
0 0 0 0 00 
000000 
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DI ,0047 :文のよみとばし。 

C 4 

:マルチステートメントなら文のよみとばしをくり返 

AL,AL .す 

000 C , 

AX , [ S I ] ;次がリンクポインタなら行のおわり。 

AX ,0105 

0024 

SI ;そうでなければ REM 文だ！ 

SI ;行のおわりの 0 になるまで， LODSB をくりかえす。 

AL,AL 

001 F 

BX ,[06 A 4] ;第1行の長さを計算する。 

SI,BX 

[ BX],SI :それを第1行のリンクポインタにしまう。 
AX ,[ BX ] ;リンクポインタをたどって，プログラムのおわりを 

AX,AX ;捜す0 

0036 ;リンクポインタが0なら，プログラムのおわり 

BX,AX ;だ！ 

002 C 

[06 A 6 ],BX ;プログラムエンドポインタを復活する。 


000 C BF 4700 
000 F CDC 4 
0011 AC 
0012 08 C 0 
0014 75 F 6 
0016 8 B 04 
0018 300501 
001 B 7207 
001 D 46 
001 E 46 
001 F AC 
0020 08 C 0 
0022 75 FB 
0024 8 B 1 EA 406 
0028 29 DE 
002 A 8937 
002 C 8 B 07 
002 E 09 C 0 
0030 7404 
0032 01 C 3 
0034 EBF 6 
0036 891 EA 606 
003 A CF 


BASIC 復活プログラムソースリスト 

注） BASIC のワーク エリアは， 主に，セグメント60 H にありますが，この値は， モニタに 入っ 
たとき，又は， USR や CALL でマシン語プログラムをよんだときには， SS セグメントレジス 
夕に入っています。 

この プログラム 中で， BASIC のワークエリアを扱いますので， DS を 60 H にする必要があります 
が， 

16 PUSH SS 

IF POP DS 

とすれば，たった 2 バイトで， DS に 60 H を入れることができます。 

2-7 ステートメント • 関数処理アドレス 

PC -9801 は， ROM のバージョンによって，ステートメント，関数の処理アドレスが異なります。 
ワークエリアにも，処理アドレスのテーブル先頭は格納されていません。しかし， ROM の中には, 
その処理アドレステーブルの先頭アドレスのベクタがあります。 

以下に，処理アドレスの表を作成するプログラムを示します。実行サンプルを示しておきますが, 
ROM によって値が異今ることがあるので， マシン語プログラム等作製す る場合は，直接にこの処理 
アドレスを用いるよ うなことは，絶対にしないで下さい。（表は，オフセットの値です。セグメント 


B B 

〇〇 CO Co I— 

uv T D E uv p c c D E uv B uv uy D p iv E 
IONORNOMBNNORNOUOOREDMOR 
MILOJMCJII し OJMSMMOJAJMI 
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は E 800 H です。） 

関数の処理アドレスは， 

アドレス1:アドレス2 

となっていますが，アドレス1が，関数の引数を柚出するような前処理，アドレス2がその関数の 
核の処理となっています。 

DATE $, MI D$，PO I NT , 

PEN , T IME $, VI EW 
WINDOW 

の 7 つは，ステートメント表にも関数表にも出てきますが，例えば， 

関数として A $ = MID $ ( A $,3, l ) 

ステートメントとして MID $ ( A $，3, l )=、、 THIS " 

のように，2つの使い方があるからです。 

プリンタに出力する場合は，100行のファイルディスクリブタの 
''SCRN : " 

を 

、'LPT 1:〃 

にかえて下さい。 


ステートメントの処理アドレス表を作成するプログラム 


0 'SAVE'KEYADD.ST - 
100 OPEN "SCRN:" AS #1 

110 DIM SN(10),CODE(144) > KY.UORD$(144),FLG(144) 

120 DEF FNUPK(X)=PEEK(X)+PEEK(X+l)*256 

130 DEF FNPK$(X)=FNHX$(FNUPK(X)) 

140 DEF FNHX$(X)=RIGHT$( "000 - +HEX$(X),4) 

150 DEF FNUD$(X$)=LEFT$(X$+SPACE$(10),10) 

160 DEF FNKY$(X)=FNUD$(KY.UORD$(I+X))+" : '+FNHX$(PEEK(AD+(I+X)^2) + 


PEEK(AD+(I+X)*2+1)*256)+SPACE$(6) 


170 / 

180 DEF SEG=&H60 
190 x 

200 AD=FNUPK(&H140A) 

210 BSE=FNUPK(&H140C) 

220 CHR 二 ASC(_A_):DEF SEG=BSE 
230 WHILE CHR<92 
240 ADD=FNUPK(AD) 

250 NADD=FNUPK(AD+2) 

260 GOSUB *LST 
270 AD=AD+2 ： CHR=CHR+1 
280 UEND 
290 GOTO *PRT,OUT 
300 " 


: 'GET KEY UORD TABLE POINTER 
:/ GET SEGMENT 


: / NOW ALPHABET ADDRESS 
: 7 NEXT ALPHABET ADDRESS 
r GET KEY UORD LIST 
NEXT ALPHABET 

PRINT OUT KEY UORDS 
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*LST 

WHILE ADD<NADD 
LN=PEEK(ADD) 

FOR 1=1 TO LN:SN(I)=PEEK(ADD+I):NEXT I 
CODE=PEEK(ADD+LN+1) : IF CODE く 128 THEN 410 
CNT=C0DE-128 

IF CHR=ASC(_[■) THEN KY.UORD$(CNT)="" ELSE KY.UORD$(CNT)=CHR$(CHR) 
FOR 1=1 TO LN 

KY.UORD$(CNT)=KY•UORD$(CNT)+CHR$(SN(I)) 

NEXT 

ADD=ADD+LN+3 

UEND 

RETURN 

〆 

^PRT.OUT 

〆 

DEF SEG=0:FL=0 

01=PEEK(&H310)+PEEK(&H311) *256 
S1=PEEK(&H312)+PEEK(&H313)^256 
DEF SEG=S1 

02=PEEK(01+7)+PEEK(01+8)*256 
03 二 PEEK(02+54)+PEEK(02+55)*256 
FOR 1=03 TO 03+256 : REM FIND IMP AL,0FFH JZ' 

IF PEEK(I)=&H3C AND PEEK(1+1)=&HFF AND PEEK(1+2)=&H74 THEN 11=1+4 
NEXT 

FOR I=II TO 11+256 

IF PEEK(I)=&H8D AND PEEK(1+1)=&H3E THEN 04=I+2：GOTO 570 
IF PEEK(I)=&HBF THEN 04=1+1:GOTO 570 
NEXT 

AD=PEEK(04)+PEEK(04+1) *256 

✓ 

FOR 1=0 TO 47 
PRINT #1,FNKY$(0 )； 

IF I+&HB0<256 THEN PRINT #1,FNKY$(&H30 )； 

IF I+&HE0<254 THEN PRINT #1,FNKY$(&H60) ELSE PRINT #1," 

NEXT 


PRINT #1,'" : PRINT #1 / *** FUNCTION AS STATEMENT 奸关 ■ 


PRINT 持 1, 
PRINT #1, 
PRINT #1, 
PRINT #1, 
PRINT #1, 
PRINT #1, 
PRINT #1, 


B DATE$ 

*MID$ 

■POINT 

■PEN 

■TIME$ 

"VIEU 

■UINDOU 


_;FNPK 丰 （ AD+252) 
';FNPK$(AD+254) 
";FNPK$(AD+256) 
■;FNPK$(AD+258) 
•;FNPK$(AD+260) 
_;FNPK$(AD+262) 
';FNPK$(AD+264) 


END 


関数の処理アドレス表を作成するプログラム 

0 ^SAVE^EYADD.FN' 

100 OPEN "SCRN： - AS #1 

110 DIM SN(10),KY.UORD$(144) 

120 DEF FNUPK(X)=PEEK(X)+PEEK(X+l)*256 
130 DEF FNHX$(X)=RIGHT$(' 000 '+HEX$(X).4) 


0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 4 yo 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
12345678901234567890123333456789012345678901234 
33333333344444444445555555555555666666666677777 
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DEF FNUD$(X$)=LEFT$(X$+SPACE$(10),10) 
DEF FNPK$(X)=FNHX$(FNUPK(X)) 

DEF FNKY$(X)=FNUD$(KY.UORD$(I+X))+" 5 
"+FNPK$(AD+(I+X)*4+2)+SPACE$(3) 


•+FNPK 丰 （ AD+<I+X)*4) 


DEF SEG=&H 60 

〆 

AD=FNUPK(&H140A) 
BSE=FNUPK(&H140C) 
CHR=ASC("A v ):DEF SEG=BSE 

WHILE CHR<92 
ADD=FNUPK(AD) 
NADD=FNUPK(AD+2) 

GOSUB * し ST 
AD=AD+2:CHR=CHR+1 
UEND 

GOTO *PRT.OUT 


GET KEY UORD TABLE POINTER 

: i 不 


NOU ALPHABET ADDRESS 
NEXT ALPHABET ADDRESS 
GET KEY UORD LIST 
NEXT ALPHABET 

PRINT OUT KEY WORDS 


*LST 

UHILE ADD く NADD 
LN=PEEK(ADD) 

FOR 1=1 TO LN:SN(I)=PEEK(ADD+I):NEXT I 
CODE=PEEK(ADD+LN+1):IF C0DE>127 THEN 410 
CNT=CODE 

IF CHR=ASC(_[_) THEN KY•UORD$(CNT)="" 

ELSE KY.UORD$(CNT)=CHR$(CHR) 

FOR 1=1 TO LN 

KY.UORD$(CNT)=KY.UORD$(CNT)+CHR$(SN( I)) 
NEXT 

ADD=ADD+LN+3 

UEND 

RETURN 


^PRT.OUT 

/ 

DEF SE6=0 

01=FNWPK(&H310):S1=FNUPK(&H312) 

DEF SEG=S1 

02=FNUPK(01+7):03=02+28 
04=FNUPK(03)+&H40 : 05=FNUPK(04)+1 
06=FNUPK(05):IF 06>32768! THEN 07=06-65536! 

AD=FNUPK(05+2+07+&H12) 

FOR 1=0 TO 47 
PRINT #1,FNKY$(0 )； 

IF K&H20 THEN PRINT #1,FNKY$( &H30) ELSE PRINT #1, 
NEXT 


END 


4 5 6 

ix 14 


0 0 0 0 000000 00000000000 
7 8 9 012 345678901234567 
1112 22 222222233333333 


0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
890123456789012345 67890 
33444444444455555555556 
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ステートメントの処理アドレス表セグメント： E800H 


AUTO 

2290 

LINE 

BSAVE 

8BCC 

LOAD 

BL0AD 

8EE0 

LSET 

BEEP 

50F2 

LFILES 

CONSOLE 

5244 

MOTOR 

COPY 

70A0 

MERGE 

CLOSE 

51DB 

MON 

CONT 

22FC 

NEXT 

CLEAR 

2333 

NAME 

CALL 

9B2A 

NEW 

COMMON 

9B7E 

NOT 

CHAIN 

9B84 

OPEN 

COM 

251E 

OUT 

CIRCLE 

2D32 

ON 

COLOR 

2F78 

OPTION 

CLS 

3022 

OFF 

DELETE' 

2476 

? 

DATA 

22F5 

PUT 

DIM 

9C6C 

POKE 

DEFSTR 

9C31 

PSET 

DEFINT 

9C29 

PRESET 

DEFSNG 

9C2D 

PAINT 

DEFDBL 

9C25 

RETURN 

DSK0$ 

4732 

READ 

DEF : 

t 72CE 

RUN 

ELSE 

12C8 

RESTORE 

END 

2A26 


ERASE 

9C88 

RESUME 

EDIT 

2A75 

RSET 

ERROR 

2324 

RENUM 

FOR 

733A 

RANDOMIZE 

FIELD 

76B6 

ROLL 

FILES 

6B6E 

SCREEN 

FN 

3D5D 

STOP 

DRAU 

3E5C 

SWAP 

GO TO 

2716 

SAVE 

GOSUB 

27 1C 

SPC 

GET 

34A7 

STEP 

HELP 

2548 

THEN 

INPUT 

989A 

TRON 

IF 

2AE0 

TROFF 

KEY 

2596 

TAB 

KILL 

6ACF 

TO 

KANJI 

3D5D 

TERM 

LOCATE 

536C 

USING 

し？ 

06BE 

USR 

LLIST 

773C 

WIDTH 

LET 

719C 

WAIT 


奸 * FUNCTION AS STATEMENT 奸 * 
DATE$ :1728 
MID$ ： 5405 
POINT ； 71FB 
PEN : 3505 
TIME 丰 : 263D 
VIEU : 2A0C 
UINDOU : 3354 


305F 

WHILE 

# 

• 

74DF 

8F38 

UIEND 

參 

♦ 

7510 

724D 

WRITE 

争 

9A45 

6B66 

LIST 

♦ 

♦ 

7735 

511F 

SEG 

♦ 

# 

3D5D 

8E96 

SET 

• 

參 

46DE 

2A64 

KINPUT 

: 

9A25 

7451 

SRQ 

參 

172D 

6A5C 

CMD 

• 

172D 

2A37 

IRESET 

• 

172D 

3D5D 

I SET 

• 

172D 

515D 

POLL 

: 

172D 

710F 

RBYTE 

參 

♦ 

172D 

269B 

UBYTE 


172D 

51FD 

KP し OAD 

t 

♦ 

3E62 

3D5D 

06C5 

> 

♦ 

• 

♦ 

♦ 

1728 

3D5D 

350E 

= 

参 

♦ 

3D5D 

4974 

< 

♦ 

# 

3D5D 

314C 

+ 

参 

• 

3D5D 

3150 

- 

• 

• 

3D5D 

3181 

关 

J 

3D5D 

27AD 

/ 

# 

• 

3D5D 

9ADB 

八 

• 

♦ 

3D5D 

28D5 

AND 

♦ 

• 

3D5D 

9B12 

OR 

# 

♦ 

3D5D 

3D5D 

XOR 

• 

# 

3D5D 

296B 

EQV 

♦ 

参 

3D5D 

727F 

IMP 

• 

• 

3D5D 

2B6A 

MOD 

♦ 

♦ 

1728 

72AF 

3242 

32C0 

16FC 

71AD 

8C27 

3D5D 

3D5D 

3D5D 

76A6 

76AD 

3D5D 

3D5D 

6CD2 

3D5D 

3D5D 

54D9 沣） 
70DF 比ノ 

ROM によっ 

て値が異なります 

ので，先程のプログラムを入力 


し，ご自分の マシンの アドレス 
表を作って下さい。 
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関数の処理アドレス表セグメント： E 800 H 


DATE$ 

: ABF7 ： 63C9 MKS$ 

AC06 ： 5FF4 

MID$ 

AC67 ： 5ED2 MKD$ 

AC06:6002 

POINT 

: ABF 75499 C MAP 

ABF7S487F 

PEN 

ABF7:4B41 OCT$ 

AC06 ： 5EC0 

TIME 车 

: ABF7：6403 POS 

ABF7:62E2 

VIEW 

ABF7 ： 4A53 PEEK 

ABF7:4957 

WINDOW 

ABF7 ： 4A68 RIGHT$ 

AC49 ： 5EFD 


0000:0000 RND 

ABF7:7558 


0000:0000 SEARCH 

ABF7：6440 


0000:0000 SGN 

AC06 ： 4F9D 


0000:0000 SQR 

AC06 ： 4F7C 


0000:0000 SIN 

AC06J4C32 


0000:0000 STR$ ! 

: AC06 ： 5FA4 


0000:0000 STRING$ 

AC97 ： 5F1F 


0000:0060 SPACE$ 

ABFD ： 5F16 


0000:0000 TAN 

AC06 ： 4BF5 

ABS 

AC06S4BB4 リ AL 

AC0F:5F89 

ATN 

AC06 ： 4BBD DSKI$ 

ABF7:4726 

ASC 

AC0FS5E8C FRE 

ABF7 ： 4AB2 

ATTR$ 

ABF7:46D2 VARPTR 

ABF7 ： 9CA1 

CSRLIN 

ABF7:62DC INPUT 丰 

ABF7:99E0 

CINT 

AC06J5BEE JIS$ 

ABF7:3E20 

CSNG 

AC06 ： 5C4D KNJ$ 

ABF7S3E26 

CDBL 

AC06:5C66 KTYPE 

ABF7 ： 3E2C 

CVI 

AC0F:5FB1 KLEN 

ABF7:3E32 

CVS 

AC0F:5FBD KMID$ 

ABF7 ： 3E38 

CVD 

AC0F:5FCF KEXT$ 

ABF7J3E3E 

COS 

AC06J4C21 KINSTR 

ABF7:3E44 

CHR$ 

ABFD:5EA5 AKCNV$ 

ABF7:3E4A 

DSKF 

ABF7 ： 46E4 KACNV$ 

ABF7 ： 3E50 

ERL 

ABF7；7552 IEEE 

7FBB：2000 

ERR 

ABF7:7546 STATUS 

D1D3 ： D1E3 

EXP 

AC06:4E4D 


EOF 

ABF7:4738 


FIX 

AC06:4CB8 


FPOS 

ABF7:4799 


HEX$ 

AC06S5EB1 


INSTR 

AC18:5F42 


I NT 

AC06 ： 4CD0 


INP 

ABF7：7120 


INKEY$ 

ABF7:600A 


LPOS 

ABF7:4806 


LOG 

AC06 ： 4CF5 


LOC 

ABF7:4815 


し EN 

AC0F:5E9D 


LEFT$ 

AC49:5ECF 


LOF 

ABF7:484B 


MKI$ 

AC06:5FEF 



注）アドレスは、前処理：核処理のように表示されています。 
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第 3 章テキスト画面 

3-1 WIDTH 

3-1-1 WIDTH と DIP スイッチ 
3-1-2 WIDTH 文のパラメータ省略 

3-2 テキスト VRAM のアドレス 

3-3 画面とアドレスの対麻表 

3-4 ァト U ビュートエ 1 J ァ 

3-5 テキスト画面でク''ラフィックが使える/ 

3-6 画面を縦に2分割 

3-7 テキスト画面の2ページ目を利用 

3-8 ひらがなの表示 

3-9 [OT キーと TAB 関数 
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第 3 章テキスト画面 


3-1 WIDTH 

3- 1-1W 旧 TH と DIP スイッチ 

テキスト画面のモードには次の4つの組み合わせがあり， WIDTH 文や DIP スイッチ（本体後部 
にある SW 2) によって設定されます（図3-1-1)。 DIP スイッチによって設定されたモードは，電 
源投入時または，リセットボタンを押したとき有効となります。 


画面モード 

WIDTH 文 

DIP スイッチ （ SW2) 

40 文字 X 20 行 

WIDTH 40,20 


□□nanann 


40 文字 X 25 行 

WIDTH 40,25 


HQ 


80 文字 X 20 行 

WIDTH 80,20 


QQ 


80 文字 X 25 行 

WIDTH 80,25 


ys 



図 3-1-1 DIP スイッチと WIDTH 


3-1-2 WIDTH 文のパラメータの省略 

WIDTH 文は，桁数と行数の2 つの パラメータをもちます。 N - BASIC での WIDTH 文は いずれ 
も省略できますが（例えば， WIDTH , 25, WIDTH ,), N 88 -BASIC (86) では，行数の省略しかで 
きません。したがって，桁数がわかっていないときに行数だけを変えたい場合は次のようにします。 

10 DEF SEG =& H 60 

20 UIDTH PEEia&HASGHUS 、 または 20) 

この 460 H というのは画面の桁数一1がはいっているアドレスです。ちなみに，行数一1の値は 
484 H 番地に入っています。 

ただしこれは， BASIC インタプリタが画面モードの値を参照するためのものであって，これらの 
アドレスに値を POKE したからといって画面モードは変化しません（他に CRTC のモード設定が 
必要です)。 

画面の大きさは，1バイト（$255)で表わせますが，ワークエリアでは，2バイト用いていま 
す0 
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3 - 2 テキスト VRAM のアドレス 


テキスト VRAM は， GDC/^PD 7220 (Graphic Display Controller ) という LSI によってコン 
トロールされています 0 CPU からみた VRAM アドレスは，1バイト単位ですが， GDC からみた 
VRAM アドレスは，2バイト（ワード）単位となっています。 VRAM は，主記憶空間に配置され 
ていて， CPU アドレスで，物理アドレス 

A 0000 H 〜 A 3 FFFH (画面+アトリビュートエリア2枚分） 

です。次に， GDC からみたアドレスと CPU からみたアドレスの対応を表 3-2-1 に示します。 

通常は偶数アドレスのみを使用し，漢字オプション実装時，漢字表示のために奇数アドレスも使 
用します。 


GDC アドレス 
( ヮード単位） 

CPU アドレス 
( バイト単位） 

メモリイメージ 

F E D C B A 9 8 

7 6 5 4 3 2 1 0 

0 0 0 0 

A 0 0 0 0 

日本語 

テキスト表示 

1 ページ 

ANK/ 日本語 
テキスト表示 

1 ページ 

0 8 0 0 

A 10 0 0 

日本語 

テキスト表示 

2 ぺージ 

ANK/ 日本語 
テキスト表示 

2 ページ 

10 0 0 

A 2 0 0 0 


アトリビュート 

1 ページ 

18 0 0 

A 3 0 0 0 


アトリビュート 

2 ページ 


アドレスの数え方 


GDC アドレス 
CPU アドレス 


0 1 


□ □□口 


0 12 3 


ただし、 CPU アドレスの A 4000 〜 A7FFF の部分 
に拡張バスからメモリ等を増設することはできませ 
ん〇 

アトリビュートの奇数アドレスには、メモリはあ 
りません。 


表 3-2-1 テキスト VRAM のアドレス 


3-3 画面とアドレスの対応表 

テキスト画面に表示される文字は ， VRAM (Video RAM ) と呼ばれる N 88 - BASIC (86) ワーク 
エリア上のデータです。画面の1文字は， VRAM の2バイトに対応し，この VRAM にデータを書 
き込むことにより，画面に文字を表示することができます。また，この VRAM のデータを読むこと 
で画面に表示されている文字コードを知ることもできます。 

この VRAM には，各行について，320バイト （160 バイトが文字コード，160バイトがアトリ 
ビュートコード）ずつ，合計8000バイトが2組で16000バイト使われています。 

実際の VRAM のアドレスは次の表の通りです。表示されているのはオフセットですから，次のセ 
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Character 
0000. •.009F 
00A0.•*013F 
0140... 01DF 
01E0 …027 F 
0280.. •031F 
0320•..03BF 
03C0...045F 
0460.••04FF 
0500... 059F 
05A0*•,063F 
0640... 06DF 
06E0...077F 
0780. •.081F 
0820... 08BF 
0800… 095F 
0960...09FF 
0A00...0A9F 
0AA0. • 』 B3F 
0B40" .0BDF 
0BE0.•.0C7F 
0C80".0D1F 
0D20...0DBF 
0DC0...0E5F 
0E60,,.0EFF 
0F00...0F9F 


Attribute 
0000. •.009F 
00A0.•.013F 
0140.. •eiDF 
01E0...027F 
0280 ."031F 
0320. •.03BF 
03C0...045F 
0460 •••04FF 
0500.. •059F 
05A0...063F 
0640 •••06DF 
06E0...077F 
0780. ..081F 
0820. •.08BF 
08C0.•.095F 
0960,,. 09FF 
0A00...0A9F 
0AA0...0B3F 
0B40,..0BDF 
0BE0*..0C7F 
0C80...0D1F 
0D20...0DBF 
0DC0...0E5F 
0E60.,.0EFF 
0F00...0F9F 


次に， カーソル 位置から VRAM のアドレスを求める方法を示します。 

※ BASIC による方法 
着 40 ケタモード 

V.ADRS=160 * CUR.Y+4 * CUR.X 
• 80 ケタモード 

V.ADRS = 160 * CUR.Y + 2 ホ CUR.X 
これらは，閨数として定義しておくと便利です。 

3-4 アトリビュートエリア 

文字のブリンキングや色，下線などの制御を行うために，その属性（アトリビュート）を記録す 


グメントを加えて下さい。 

テキスト画面 1 : A000H アトリビュート 1 : A200H 
テキスト画面 2 : A100H アトリビュート 2 : A300H 
つまり，テキスト画面1だと， 

DEF SEG 二 &HA0 0 0 

として下さい。 


e 0123456789012345678901234 

n 1 1 t-h tH 111 CN 04 CN CN 
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る部分が画面の文字と，1対1対応で存在します。 

1文字は2バイトで表わされますが，対応するアトリビュートも2バイトです。ただし，上位8 
ビットは使用されません。アトリビュートの内容を図 3-4-1 に示します。 



7 

6 

5 

4 f 

3 

2 

1 

0 

緑 

赤 

虫 

垂線 

簡易グラフ 
=1注) 

アンダー 

ライン 

=1 

リバース 

=1 

ブリン 

キング 

=1 

シーク 

レット 

= 0 


カラー CRT 
の場合 


0 0 0 

里 

COLORO 

0 01 

主 

COLOR 1 

010 

赤 

COLOR 2 

011 

紫(マゼンタ） 

COLOR 3 


10 0 

緑 

COLOR 4 

101 

水色（シアン） 

COLOR 5 

110 

黄 

COLOR 6 

111 

白 

COLOR 7 


モノクロ CRT 

•明7 <-> 0暗 濃淡になる。 

の場合 

注） I / O ポート 68 H に、1……簡易グラフ，0……垂線をアウトするとよい。 

シークレットは負論理で，0のときにシークレット表示し，1のときにノーマル表示します。 

図 3-4-1 アトリビュートエリア 

3-5 テキスト画面でグラフィックが'使える/ 

ビット4の簡易グラフというのは， PC _ 8001の 160 X 100 ドットグラフ ィ ックと同じものです。た 
だし，カラーは1文字分 （2 x 4ドット）ずつですが，変化数については1行20回までというよう 
な制限はありません。次に，そのデモを示します。 
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簡易グラフィックデモンストレーシヨン 


0 / SAVE"PC8001*GRP > 

100 / 

110 / PC-8001 160*100 GRAPHIC DEMO 

120 / 

130 DEF SEG=&HA000 TEXT PLANE 1 

140 FOR 1=0 TO 255 

150 POKE 1*2,1 

160 NEXT 

170 / 

180 / SET ATTRIBUTE AREA 
190 / 


200 DEF SEG=&HA200 : x ATTRIBUTE PLANE 

210 FOR 1=0 TO 255 

220 CL=I MOD 8 j ' MAKE COLOR 

230 POKE I*2,CL*32+&H11: / GRAPHIC ON ,NOT 

240 NEXT 

250 END 


1 


REVERSE 


ビット 4 には，垂線とも書いてありますがこの区別は，1/◦ポート68 H で行います。 

上の簡易グラフィック DEMO を RUN して， 

OUT & H 68,0 
OK 

として下さい。文字の中央に垂線が表示されたでしょう。 

OUT & H 68，1 

として下さい。簡易グラフィックにもどったでしょう。 

PC - 8001の 160 X 100 ドットグラフィックをご存知ない方のために，その使い方を図 3-4-2 に示 
しておきます。 


(偶数ア ドレスのみ、 
レ吏用する。 ) 


I 文字を8分割する。したがって横80文字来2 =160ドッ 



トト} 


になる。 


b 7 b 6 bs b 4 b 3 b 2 bi bo 

1 

0 

0 10 110 

ならば 

广 


1 


1 


I 



I 


V 

96 H と表示される。 


図 3-4-2 160X100 ドットグラフィック 
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ランダムパターンでは面白くないので， 

おなじみのインベーダーを表示するプログラムを紹介しましょう。インベーダーが左右に行った 
り来たりします。 STOP キーで，プログラムを中断することができます。 

モノクロモードなのに，アトリビュートを直接いじることによって色をつけることもできますね。 
インベーダーの形は，文字を消すのと同じ方法 （ h c ° l ^ e キーを押すなど）で消すことができます。 


インベーダー表示プログラム 


0 ^SAVE'INVDEMO" 

100 " 

110 x INVADER 
120 x 

130 UIDTH 80,25：CONSOLE ,,0:COUNT=-1 
140 DIM INV1(11),INV2(11) 

150 y 

160 RESTORE PATTERN 

170 FOR 1=0 TO11:READ A$ ： INV1(I)=VAL("&H B +A$):NEXT 
180 FOR 1=0 TO11:READ A$ : INV2(I)=VAL C &H"+A$):NEXT 
190 / 

200 ^ SET ATTRIBUTE AREA 
210 / 

220 DEF SEG=&HA000 

230 LOCATE 20,3：PRINT "Now set attribute area•" 

240 Y=8:ADD=Y^160 

250 FOR X=0 TO159 

260 POKE ADD+X,0：POKE ADD+X+ 160,0 

270 NEXT 

280 FOR X=0 TO 74 

290 GOSUB ^ATR.SET 

300 NEXT 

310 LOCATE 13,3 

320 COLOR 6:PRINT - Ue are INVADERS. ■: COLOR 0 

330 y 

340 / MAIN 
350 / 

360 V=8 

370 FOR J=10 TO 60 STEP 5 
380 X=J+0FST 

390 GOSUB ^INV.DISP 

400 NEXT 

410 0FST=0FST+1:IF OFST=10 THEN LFT=1:BEEP Is BEEP 0 

420 IF LFT=1 THEN OFST=OFST - 2 

430 IF OFST=0 THEN LFT=0:BEEP 1:BEEP 0 

440 GOTO 370 

450 " 

460 END 

470 *INV.PATTERN 
480 DATA 00,C8,F6,6F,8C,00 
490 DATA 00,B5,31,13,5B,00 
500 ' 

510 DATA 00,C8,F6,6F,8C,00 
520 DATA 00,59,5B,B5,95,00 
530 ' 

540 / DISPLAY INVADER PATTERN 
550 z 
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560 ^INV.DISP 
570 DEF SEG=&HA000 
580 ADD=Y^160+X^2 

590 COUNT=-COUNT:IF C0UNT=-1 THEN 680 

600 FOR 1=0 TO 5 

610 POKE ADD+I*2,INV1(I) 

620 NEXT 

630 ADD=ADD+160 

640 FOR 1=6 TO11 

650 POKE ADD+(I-6)*2,INV1(I) 

660 NEXT 

670 RETURN 
680 x 

690 FOR 1=0 TO 5 

700 POKE ADD+I*2,INV2(I) 

710 NEXT 

720 ADD=ADD+160 

730 FOR 1=6 TO11 

740 POKE ADD+(I - 6)*2,INV2(I) 

750 NEXT 

760 RETURN 
770 / 

780 x SET ATT IBUTE AREA SUBROUTINE 

790 7 

800 ^ATR.SET 

810 DEF SEG=&HA200 

820 ADD=Y^160+X*2 

830 FOR 1=0 TO 5 

840 POKE ADD+I*2,&H31 

850 NEXT 

860 ADD=ADD+160 

870 FOR 1=6 TO11 

880 POKE ADD+(I-6)*2,&H31 

890 NEXT 

900 RETURN 
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C 8 F 6 6 F 8 C 

B 5 31 13 B 5 




































_ 































C 8 F 6 6 F 

9 5 5 B B 5 


インベー ダ ーパターンデータの 作成法 


3-6 画面を縦に2分割 

画面を横に分けるには，図 3-6-1 のように CONSOLE を使えばできます。 
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CONSOLE 13， II 


SAVETIRST.CHR" 


MAKE HALF SIDE OF SCREEN 
Copy rihght by T.K SYSTEMSOFT^C) 


UIDTH 80,25 
DEF SE6=&H 60 
FOR 1=0 TO 24 
X=&H314+I*4 
Y=160*I+40*2 
GOSUB 230 
NEXT 

POKE &H 460,40 -1 
END 


WHILE 0 く =LINE く =24 
LINE TOP BUFFER 
USE 2 BYTES BY 1 CHR 
SET 2 BYTE VALUE 

SET UIDTH 


POKE X,Y MOD 256: POKE X+1,Y ¥ 256 
RETURN 


13 行目から 11 行をスクロール 
エリアとする。 


図 3-6-1 画面を横に分割 

これから示すプログラムを使うと次の図 3-6-2 のように画面を縦に割って使うことができます。 


List 

10 PRINT A 
OK 


図卜6_2画面を縦に分割 

次のプログラムを実行して， LIST をとってみて下さい。画面の右側40文字分だけを使っている 
でしよう。 

画面縦分割プログラム 


ただし， CLS や^^^ E | をすると全画面が消去されますし， WIDTH 文を実行すると，表示が画面 
全体へ渡ってしまいます。 


0 


0 0 0 0 0 0 0 0 
01234567 

1-ix 11IX 111 


0 0 0 0 0 0 00 
89012345 
11222222 
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このプログラムの原理は，ワークエリアにある，行単位の属性をあらわすデータを書き直してい 
るのです。 


314,5 

第 0 行の TOP アドレス 

348,9 

第 13 行の TOP アドレス 

318,9 

第 1 行の TOP アドレス 

34 C.D 

第 14 行の TOP アドレス 

31 C,D 

第 2 行の TOP アドレス 

350,1 

第 15 行の TOP アドレス 

320，1 

第 3 行の TOP アドレス 

354,5 

第 16 行の TOP アドレス 

324,5 

第 4 行の TOP アドレス 

358,9 

第 17 行の TOP アドレス 

328,9 

第 5 行の TOP アドレス 

35 C.D 

第 18 行の TOP アドレス 

32 C，D 

第 6 行の TOP アドレス 

360，1 

第 19 行の TOP アドレス 

330,1 

第 7 行の TOP アドレス 

364,5 

第 20 行の TOP アドレス 

334,5 

第 8 行の TOP アドレス 

368,9 

第 21 行の TOP アドレス 

338,9 

第 9 行の TOP アドレス 

36 C，D 

第 22 行の TOP アドレス 

33 C，D 

第 10 行の TOP アドレス 

370，1 

第 23 行の TOP アドレス 

340，1 

第 11 行の TOP アドレス 

374,5 

第 24 行の TOP アドレス 

344,5 

第 12 行の TOP アドレス 




各行の TOP アドレスが格納されています。 

460 H 番地には， （1 行の幅） -1 の値が入ります。 

ここでは使っていませんが，次の 24 コのアドレスには，それぞれ0行目と1行目，1行目と2行 
目，…，23行目と24行目がつながっているか，のフラグが入っています。 



317, 

31 B , 

31 F 

323, 

327, 

32 B , 

32 F 

333, 

337, 

33 B , 

33 F 

343, 

347, 

34 B , 

34 F 

353, 

357, 

35 B , 

35 F 

363, 

367, 

36 B , 

36 F 

373, 





フラグの意味は， 

|80以上……行がつながつている。 

て80未満……行がつながっていない。 

です。 
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3-7 テキスト画面の 2 ページ目を利用 

テキスト VRAM の表示エリアは， AOOOOH から AOFFEH までありますが，これと同じ形式の表 
示エリアが A 1000 H から A 1 FFEH まであります。また，アトリビュートエリアも A 200 0 H から A 2 
FFEH と同じ形式のものが A 300 0 H から A 3 FFEH まであります。これらのエリアは，未使用と 
なっています。 

未使用では，もったいないので，ちょっとした有効利用を考えてみましょう。タイトル画面やメ 
ニュー表示など，表示しては消し，また表示する必要がある場合には，その画面をそっくりそのま 
ま，未使用エリアにブロック転送して，保存しておくと良いでしょう。そして，必要なときに，本 
来のエリアに転送し直せば OK というわけです。 

そのプログラム 例を次に示します。 A 0000 H から FFEH バイトの表示エリアを A 1000 H からに 
転送し，次に A 200 0 H から FFEH バイトのアトリビュートエリアを A 3000 H に転送し，もとに戻す 
には，その逆を行うことになります。 

8086にはストリング操作命令があり，一続きのメモリブロックの操作ができます。これにより， 
ブロック転送のほか，サーチ，比較といったオペレーションを実現することができます。ちなみに, 
次にブロック転送の公式を述べます。 

DS = 転送元のセグメント 
ES 二転送先のセグメント 
S I =転送元のオフセットアドレス（開始番地） 

D I 二転送先のオフセットアドレス（開始番地） 

DF 二0 (デイレクシヨンフラグを0としてインクリメントモードにする） 

S I =S I + 1 : D I =D I + 1となる。 

CX = 転送するバイト数またはワード数 

REP くり返しプリフィックスでこれを使用すると次の転送命令が C X の値が0になるまで連 
続される。 

MOVS 転送命令。 MOVSB とするとバイト転送， MOVSW とするとワード （2 バイト）転送 
となります。 

次に BASIC の CALL 文で画面の退避.復帰を行う.リストを示します。 

画面の退避 • 復帰プログラム 

1 sa リ e 'VRAM#bas" 

100 = = = = = = = 二====二= ===:: 

11& / DEF SEG=&H1F00 
120 x VRAM=&H 0 

130 / A^=0jCALL VRAM(A^) ^ Save 
140 , A^=l»CALL VRAM(A^) Restore 
150 / ====== : ======：===========：=====：：===：= 
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OPEN "SCRNs" AS 1 
DEF SE6=0 
DIM D(15) 

A=PEEK(&H2B4)+PEEK(&H2B5) *256 
SG=PEEK(&H2B6)+PEEK(&H2B7)*256 
DEF SEG=SG 
DT=A-&H420 
FOR 1=0 TO15 
B=PEEK(DT+I) 

IF B -128>=0THEN 
IF B - 64>=0 THEN 
IF B - 32>=0 THEN 

IF B - 16>=0 THEN 

IF B - 8 >=0 THEN 

IF B - 4 >=0 THEN 

IF B - 2 >=0 THEN 

IF B - 1 >=0 THEN 

PRINT #1,"" 

NEXT I 
DT=DT+15 

IF DT-15 く A THEN 200 
END 


B=B -128; PRINT 

持 1, 

■ 料 | 

ELSE 

PRINT 

#1," 

鼸 

B=B - 64 

: PRINT 

枠 1, 


ELSE 

PRINT 

神 1,_ 


B=B-32 

: PRINT 

#1, 


ELSE 

PRINT 

枯 1，_ 


B=B - 16 

: PRINT 

#1, 


ELSE 

PRINT 

#1 / 


B=B-8 

: PRINT 

#1, 


ELSE 

PRINT 

#1 / 


B=B-4 

: PRINT 

林 1, 


ELSE 

PRINT 

神 1,_ 


B=B - 2 

: PRINT 

#1, 


ELSE 

PRINT 




: PRINT 

枯 1, 


ELSE 

PRINT 

#1/ 



160 DEF SE6=&H1F00 

170 FOR AD=0 TO &H44 

180 READ D$ : D=VAL( ， &H ， +D$) 

190 POKE AD,D 
200 NEXT AD 
210 END 

220 DATA C4,37,26,8B,04 > 3D,00,00,74,06,3D,01,00,74,14,CF ： / 0000H 
230 DATA B8,00,A0,BB,00 > A1,E8,1D,00 > B8,00,A2 > BB,00,A3,E8 ： / 0010H 
240 DATA 14,00,CF,B8,00,A1,BB,00,A0,E8,0A,00,B8,00,A3,BB: ， 0020H 
250 DATA 00,A2,E8,01,00,CF,8E,D8,8E,C3,33,F6,33,FF,FC,B9: / 0030H 
260 DATA FF,07,F3,A5,C3 ， 00,00,00,00,00,00,00,00 ， 00,00,00:'0040H 


画面を退避させるときは， A % = 0 でコールし，復活させるときは1としてコールします。 


3-8 ひらがなの表示 

セグメント0の 2 B 4 H —2 B 7 H に格納されているアドレス（オフセット，セグメント）を a と 
すると， a — 420 H から a — 1には，ひらがなフォントデータが格納されています。 

次に示すプログラムを走らせると，そのイメージを表示してくれます。 


ひらがなフォント表示プログラム 


0 'SAVE'HIRAGA" 

100 ' 

110 ' HIRAGANA OUTPUT FROM ROM 
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《実行結果の一部》 


次に表示結果の一部を示します。 


兴兴兴务餐簧兴兴兴赛荼餐 






嶔兴*爹长关 




荼菁 


** ** 
癸兴兴菁釜） H (关 


关兴 爹长关*#兴 


兴*赛菁 
策策 荼赛 赛《篆《 

驀长 耷关 兴兴 

爹兴 餐*驀荼 


菁关关长 

簀关 兴长篆兴 

黃紊 兴关 
簧兴备爹 


荼簧 关关爹爷 


驀关长关关爹 关荼 
兴 关驀籌长 


兴兴*荼驀关菁兴 


黃爹 

兴兴 


«关兴兴关妖** 兴餐 

兴关 关长 提赛 

赛关 关兴 兴荼 

** 长关 长关 

关爹 关关 

兴关 兴备 


长长 #菁籌长 
兴关兴兴关关炎* 


赛菁驀赛赛黃 
荼爹长关 兴茶 

关爹 菁兴 荼长 黉赛 


关驀 


关关 


餐兴 鸶籌 
兴荼 荼菁 


兴茶 

兴兴 


籌兴 

菁長 关关 

籌餐 铸 M 

兴)(籌驀 長 M 
«餐 餐黉 长兴兴妖关« 

長兴 長赛 籌赛 

炎« 籌赛 被餐 

籌赛 兴驀 兴赛 


关长兴兴兴关 
菁关兴兴兴关 


关关 




兴长 关* 

关关关兴 )(« 


兴关 兴兴 
荼兴 ** 


关菁菁兴 
爹关关关茶* 驀兴 


長兴 




兴兴 兴长 

关籌兴餐 


料 




赛妖 


兴兴 

兴兴 


M 長 籌籌 

籌菁菁嫌荼長！(籌 ）1 


关关籌关兴兴爹驀9(兴关关菁关 


籌餐 
長嫌 


关兴 

荼餐 


憂) H (黉 
«M 籌餐 
«長 

籌餐 長 M 
餐餐 )H( 

) HHH ( 

籌長餐籌籌 M 餐菁 


菁关 
K 兴 


兴驀 长菁 兴驀 

赛黉 籌长 餐籌 

籌餐 《長 ）( 驀 

蔫餐 兴炎 Hik 

餐《 菁長 餐长 M 赛 
籌菁 


« 篆餐籌 

餐籌籌長菁籌 菁 


籌籌兴驀 «« 


mm 洚籌 兴籌 籌兴 


長籌籌) H (翁 

«菁籌籌 餐籌 


餐籌 

籌铸 


籌餐 
K 簧 




)(« 


籌 K )HHHHH( 

籌菁長)(赛餐 籌 

膂« K 長 簧 

«IHH( M 籌 籌 

IHHH( 餐籌 籌 

籌崔 兴餐 籌 

肇餐 餐餐 籌 

餐餐 《挺 兴《 


关赛 齊兴 
关兴 ^ 


兴赛 

籌驀 


餐長 

关籌兴关 籌兴兴籌 

关鋒兴 M 关兴 籌兴 

M 菁餐关 关 M 

)HMH( 籌兴 

籌长驀兴 关資 

关長驀 M )( 菁長兴 


备《餐兴 

兴兴兴餐兴关長关长嫌)(籌 


籌籌 




籌关 


关驀 兴关 
关餐 菁餐 


«« 餐餐籌籌 

籌兴关赛赛餐赛荼驀关 
光妖耷兴 兴关 


荼兴关赛荼兴簧籌 
簀嫌关餐兴赛 


关赛 )HHHHHHH( 


菁兴 兴兴 兴长 

赛赛 兴兴 关炎 


菁長菁餐 

驀籌 餐赛 


«) (餐赛餐赛 
K 关菁餐籌长 

) H ( 

籌 )( 餐赛关关 

M 長兴籌餐赛籌餐 


兴 M 兴关 

兴关兴关 


驀籌 兴 )( 关关兴籌兴)(炎兴 


关餐 
荼炎 


餐餐 


兴兴 长兴 关兴 


籌长 兴关关妖兴兴籌兴驀荼 


爹菁 籌关餐餐 

荼荼 关关 兴兴菁关 

兴关 关X 荼长 

籌关 *兴 兴兴 


籌关关兴 
关赛赛籌 


兴兴兴关爹菁关爹爹长 


兴兴 

釜# 


篆兴 長赛 

关赛菁兴兴餐膂赛 餐 

赛菁 长 

关关 

关兴長籌关籌 
关爹耷兴籌餐 
赛兴荼荼 关驀 

)H( «* 兴 

兴荼 荼关 关 

兴餐 关兴 关 


籌兴 


长* 


关关 
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1^0 T0 L &H9F-&H7C 

(10+U12,10 ),KANJK&H7C+1),PSET,7,0 
1=0 TO &HFF-&HE0 

(10+1*12,30 〉， KANJK&HE0+I),PSET,7,0 


SAVE "HIRA.DSP" 

'DISPLAY HIRAGANA 
r UITHOUT KANJI ROM 


これらのひらがなは，したがって， 漢字 ROM がなくても表示できます。 ただし，テキスト画面 
にはできませんが，グラフィック画面には表示することができます。次に，それらを表示するプロ 
グラムを示します。 

ひらがな表示プログラム 


文字とコードの対応表は， PC -9801 USER’S MANUAL をご覧下さい。 
ただし，コード 7 CH (丨）と 7 FH (〜）は，テキスト画面にも表示できます。 
? CHR$(&H7C)CHR$(&H7E) 


3-9 | TAB | キーと TAB 関数 

| TAB 丨 キーの TAB の意味と TAB 関数の TAB の意味が異なります。 

まず， TAB 関数の意味を調べるために，次に示すようなことをして下さい。 

? • A • TAB ( 2 ) - B • TAB ( 10 ) - C • TAB ( 13 ) 11 D " 

A B CD 

Ok 

123456789 +123 

結果をみると分かるように，行の最初の文字を 0 カラムとして， TAB の示すカラムまでスキップ 
せよ，ということです。 

では，キーの方はどうかと申しますと，次のようにするとその正体が分かります。 

行の一番左はしにカーソルをもってきて， |TAB| キーを押して下さい。一定の位置で止まりますね。 

0123456789 +123456789-H 23456789 -H 23456789+123456789+123456789+123456789+123456789 

このように， ITABl キーは， 8 カラム目ごとにスキップするのです。 

カーソルが n カラム目にあるとき， [^ AB ] キーをおすと，カーソルは， 


L R u X R u X 

O O p E O p E 

R F N F N 


/ 0 0 0 0 0 CS5 0 0 

01234567890 

IX IX iA 11IX 1IX IX 1 OJ 
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n -|- 8 ~ (n mod 8) カフム目 
に進みます。ただし，行の右端で止まります。 

しかし，このように TAB を固定すると不便な場合があります。例えば，次に示すように，アセン 
ブル結果を表示する場合，8カラム目ごとの TAB では使いものになりません。 


0123456789+123456789+123456789+123456789+ 


0000 

FC 

C し D 


0001 

16 

PUSH 

SS 

0002 

IF 

POP 

DS 

0003 

A1A406 

MOV 

AX,[06A4] 

0006 

050400 

ADD 

AX, 0004 

0009 

A3EA06 

MOV 

[06EA],AX 

000C 

BF4700 

MOV 

DI,0047 

000F 

CDC4 

INT 

C4 

0011 

CF 

I RET 



この例では， 

〇アドレスを 0カラム目から 

〇オブジェクトを 5カラム目から 
〇ソース • リストを20カラム目から 

^オペコードを20カラム目から 
1オペランドを28カラム目から 

というようにスキップするカラム数がまちまちです。このカラム数のスキップは表示を見やすくす 
るものですから自分で設定できた方が便利です。 

このようなわけで TAB 调数は，その引数で，この TAB 位置を設定するようになっているのです。 
先程のアセンブルリストの表示を実現するサンプルプログラムを次に示しました。 


TAB 設定プログラム 


0 ^SAVE - TAB4.TSr 
100 7 

110 / TAB SAMPLE 
120 7 

130 ADRS$=-0003" 

140 OBJ$ ='A1A406' 

150 OPCODE$='MOV；' 

160 OPRAND$=•AX•[06A4]• 
170 / 

180 60SUB *DSP.LINE 
190 / 

200 END 
210 ' 

220 *DSP 丄 INE 
230 PRINT ADRS $； 
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240 PRINT TAB(5)0BJ $； 

250 PRINT TAB(20)OPCODE$; 
260 PRINT TAB(28)0PRAND$ 
270 RETURN 


220 行から 270 行がサブルーチンになっていて， 

ADRS $ . アドレス 

OBJ $ . オブジェクト 

OPCODE 本…オペコード 
OPRAND $ •••オペランド 

をセットして， * DSP . LINE を GOSUB すると， TAB を設定して表示するようになっています。 
次が実行結果です。 

0003 A1A406 MOV AX,[06A4] 
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第 4 章グラフィック画面 

4-1 G-VRAM 

4-1-1 G - VRAM のメモリマップ 
4-1-2 高速画面ク U ア 


4-2 カラーパレット 

4-2-1 機械語によるカラーパレットの制御 
4-2-2 カラーパレットの初期化 

4-3 ボーダーカラー 

4-4 ブラフィック BIOS と GDC 

4-4-1 ブラフィック BIOS のワークエリア 

4-4-2 PSET ドットを打つ 

4-4-3 ドットを読み出す 

4_4_4直線•箱型を描< LINE 

4-4-5 円孤を描< CIRCLE 

4-4-6 ブラフィックパターンを描< 

4-4-7 高速書き込みモードにする 

4-5 マシン語による G - VRAM 直接アクセス法 


4-6 ブラフィック LI 〇と BASIC コマンド 


4-7 3 D パッケージの紹介 
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第 4 章グラフィック画面 

4-1 G-VRAM 

4-1-1 G - VRAM のメモリマップ 

グラフィック VRAM は，主記憶空間の物理アドレス， A8000H 番地から BFFFFH 番地までの 
32K バイト X 3プレーンに割り当てられていまず。 

G-VRAM は， PC-8801 のようなバンク切り換えではなく，主記憶空間内にアドレッシングされ 
ていますので，マシン語はもとより直接 BASIC からもアクセスできます。 

この G-VRAM は，画面モードによって，さらに何枚かのプレーンに分割されます（図4-1-1)。 
テキスト画面は， GDC “PD7220 によって制御されていると述べましたが，グラフィック画面も 
GDC //PD7220 によって制御されています。グラフィック画面とテキスト画面にそれぞれ1個ずつ 
合計2個の GDC を使っているのです。 

GDC には，特別にワード （2 バイト1組の）アドレッシングを行いますが，それも同時に書 


GDC 

アドレス 

(16 進） 

CPU 

アドレス 
(16 進） 

'640X200 ドット 

640X400 ドット 

モノクロ 

カラー 

モノクロ 

カラー 

4 0 0 0 

I 8 0 0 0 ワード 

5 F 3 F 

A 8 0 0 0 

116 0 0 0 バイト 

ABE 7 F 

プレーン 

1 

G-VRAMO 

プレーン 1 

プレーン 

プレーン 1 

5 F4 0 

1 8 0 0 0 ワード 

7 E 7 F 

ABE 8 0 

t 16 0 0 0 バイト 

AFCFF 

プレーン 

4 

G-VRAM1 

ブレーン 2 
青 

1 

主 

7 E 8 0 
t 3 8 0 ワード 

7 FFF 

AFDO 0 

言 7 6 0 バイト 

AFFFF 

未使用 

未使用 

未使用 

未使用 

8 0 0 0 

B 0 0 0 0 

ブレーン 

プレーン 1 



9 F3 F 

B 3 E 7 F 

2 

G-VRAM2 

赤 

プレーン 

プレーン 1 

9 F 4 0 

BE 7 F 

B 3 E 8 0 

B 7CFF 

プレーン 

5 

G-VRAM3 

ブレーン 2 
赤 

2 

赤 

BE8 0 

BFFF 

B 7D0 0 
t 7 6 0 バイト 

B 7 FFF 

未使用 

未使用 

未使用 

未使用 

C 0 0 0 

B 8 0 0 0 

ブレーン 

プレーン 1 



DF 3 F 

BBE 7 F 

3 

G-VRAM4 

緑 

プレーン 

プレーン 1 

DF 4 0 

FE 7 F 

BBE 8 0 

BFCFF 

プレーン 

6 

G-VRAM5 

プレーン 2 
緑 

3 

緑 

FE 8 0 

FFFF 

BFD 0 0 
t 7 6 0 バイト 
BFFFF 

未使用 

未使用 

未使用 

未使用 


図 4-1-1 G - VRAM のアドレスと働き 
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いておきました。 

1ビットで1ドットを表示するので， 640 X 200 ドットの場合， 

640ぱ〇卜 :ット =16〇〇〇 パィト 

のメモリが必要です。したがって， 640 X 200 ドット，カラー表示の場合ですと，青のプレーンのう 
しろに 76 Q バイトの未表示エリアができます。他の色のプレーンも同様です。この部分は，未使用 
エリアで， CLS や ROLL コマンドでグラフィックを消去しても，クリアされませんし，他のダラ 
フィック命令によって侵されることもありません。 

グラフィック画面と G - VRAM との対応は図 4-1-2 の通りです。 


※ 640 X 200 ドットモード 


639 



ABE80 


ABECF 




AFCB0 


AFCFF 


639 


B0 0 0 0 


B0 0 4 F 




B3E30 


B3E7F 


G-VRAM0 


G-VRAM I 


G-VRAM2 


75 
































639 


B3E80 


B3ECF 




B7CB0 


B7CFF 


> 639 


B 8 0 0 0 


B8 0 4 F 




BBE30 


BBE7F 


639 


BBE80 


BBECF 




BFCB0 


BFCFF 


※640 X 400 ドットモード 


639 


A 8 0 0 0 


A8 0 4 F 




ABE30 


ABE7F 

ABE80 


ABECF 




AFCB0 


AFCFF 


同様にして， 

• G-VRAM 2と G-VRAM 3 

• G-VRAM 4と G-VRAM 5 

が結集して縦400ドットを形成します。 


G-VRAM3 


G-VRAM4 


G-VRAM5 


^G-VRAMO 


G-VRAM I 


図 4-1-2 グラフイツク画面と G - VRAM との対応 






































4-1-2 高速画面クリア 

グラフィック画面を消去する場合，通常 
CLS 2 

を用いますが， ROLL コマンドを用いて， 

ROLL 199: ROLL 1 — 640 X 200 ドットの場合 

とすると画面全体を消去できます。 CLS より，約30倍速く画面をクリアすることができます。ただ 
し， ROLL コマンドを用いますと， VIEW ポートの値は無視され，すべての G - VRAM がクリアさ 
れますので，その点使い分けて下さい。 

ROLL について説明しますと， 

ROLL n 

は，グラフィック画面全体を n ドットスクロールアップします。したがって，画面のたてドット数 
だけスクロールアップさせますと，画面範囲外に出ていって，最終的にクリアされたのと同じにな 
るわけなのです。 

ただし，たて200ドットの場合， 

1 ^ n ^ 19 9 

なので，先程のように，200ドットすべてをスクロール•アップするには， ROLL 199と ROLL 1の 
2回に分けて行う必要があったのです。ただし， PC - 9801 F 、 では ， CLS 2で消しても高速に画面が 
消去できます。 


4-2 カラー パレット 

4-2-1 マシン語によるカラーパレットの制御 
BASIC ならば， 

COLORS (くパレット番号〉，くカラーコード〉） 

とすることによって，カラーパレットをセットすることができます。 

例ぇば， 

COLOR = (4, 5) 

とすれば，カラーパレット4にカラーコード5が設定されます。こうすると，今まで， LINE や 
CIRCLE 等でパレット番号4に設定して描いたものが，すべて，水色になります。ただし，これ 
は，テキスト画面の色には効果がありません。 

これをマシン語で制御するには， OUT 命令で行います。 

カラーパレットには， I / O ポート A 8 H 〜 AEH が割当てられ，次の表のように対応しています。 
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OUTPUT アドレス 

ノヽ e レツ 

卜番号 

上位4ビット 

下位4ビット 

A 8 H 

3 

7 

AAH 

1 

5 

ACH 

2 

6 

AEH 

0 

4 


MSB 1 X 1 I I 1 X 1 I 11 LSB 
GRB GRB 

カラーパレットの I/O ポー ト 


パレット番号に対するカラーコードの指定は，上の各ポートの GRB のビットに，次のデータを出 
力すればよいわけです。 


データ 

カラー 

コード 

GRB 

コード 

色 

0 0 0 

0 

里 

0 01 

1 

青 

010 

2 

赤 

011 

3 

紫 

10 0 

4 

緑 

101 

5 

水色 

110 

6 

黄 

111 

7 

白 


カラーコードの 指定 


例えば， 

COLOR 二 （2, 4) 

は， 

OUT & HAC , &H 4 X 

(ただし， X はパレット番号6に対応するカラーコード） 

とすればよいわけです。ただし，1つの I / O ポートで2つのカラーパレットに対応していますので, 
一方のカラーパレットだけを変えたい場合は，前に出力した値を覚えておかなければなりません。 
BASIC では，ワークエリアにその情報が格納されており，次の表のようになっています。 
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ノぐレツ 

卜番号 

セ グメン ト 60 H 

上位 

4 ビット 

下位 . 
4 ビット 

6 4 4 H 

6 

7 

6 4 5 H 

4 

5 

6 4 6 H 

2 

3 

6 4 7 H 

0 

1 


カラーパレツ トの情報 


したがって先程の例は， 


DEF SEG4H60 

OUT &HAC , &H40+(PEEK(&H644) AND &HF) 
POKE &H646,PEEK(&H646) AND &HF0 OR 4 


とすればよいでしょう。 




マシン語では次のようになります。 



0000 

A 04406 

MOV 

AL,[0644] ; 

パレット番号 67 をとつてくる 

0003 

240F 

AND 

AL,0F : 

パレット番号 6 の分だけ残す 

0005 

0C40 

OR 

AL,40 : 

パレット番号 2 にセットするべきカラーコード 

0007 

E6AC 

OUT 

AC,AL 


0009 

A 04606 

MOV 

AL,[0646 ]; ワークエリアのパレツト番号 2 に対応する 

000C 

24F0 

AND 

AL,F0 

ところを更新する 

000E 

0C04 

OR 

AL,04 


0010 

A 24606 

MOV 

[0646],AL 



BASIC の ROM 内ルーチンを利用する場合は，次のようにします。 


0000 

16 

PUSH 

SS 


0001 

1F 

POP 

DS 


0002 

A 04606 

MOV 

AL,C0646：1 


0005 

240F 

AND 

AL ， 0F 

パレット番号セット 

0007 

0C40 

OR 

AL,40 

COLOR = (2,4) に相当 

0009 

A 24606 

MOV 

C 0646 H , A し 

000C 

BB4006 

MOV 

BX.0640 

ROM 内 ルーチンコール 用前処理 

000F 

B443 

MOV 

AH, 43 


0011 

CD18 

INT 

18 


0013 

CF 

I RET 
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16 

PUSH 

SS 

1F 

POP 

DS 

BB4406 

MOV 

BX.0644 

B 86745 

MOV 

AX,4567 

8907 

MOV 

[BX],AX 

B 82301 

MOV 

AX, 0123 

43 

INC 

BX 

43 

INC 

BX 

8907 

MOV 

[BX],AX 

BB4006 

MOV 

BX,0640 

B443 

MOV 

AH, 43 

CD18 

INT 

18 

CF 

IRET 



パレットの色が本当に変化するかのチヱックに，次のプログラムを走らせて，8色8本の直線を 
ひいておくとよいでしょう。 

10 CONSOLE ,,,1 
20 FOR 1=0 TO 7 

30 LINE (320,0)-(639,100+1*5),1 
40 NEXT 
50 END 

4-2-2 カラーパレツトの初期化 

カラーパレットは使って便利なものではあるのですが，1つのプログラムでカラーパレットを操 
作した後，別のプログラムで，思ったとおりの色がでなかったりするということがあります。これは， 
カラーパレットを初期化すれば直ります。カラーパレットのカラーコードを変更した場合，そのプ 
ログラムの終わりに，カラーパレットを初期化するようにしましょう。 

カラー パレ ットの初期化は，ダイレクトモードかプログラム中で， 

FOR 1=0 TO 7: C 0 L 0 R =( I , I):NEXT 
とすればよいです。 

これをマシン語でやれば，次のようになります。 


4-3 ボーダーカラー 

ボーダーカラーは，画面のまわりの色のことで， COLOR 文の3番目のパラメーターで制御しま 

to 

ボーダーカラーをマシン語で制御するには， I / O ポート 6 CH の！^〜 b 6 の3ビットを使います。 


01258 ADEF1468 
0000000001111 
0000000000000 
0000000000000 
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0 OUTPUT ポート 6 CH 

〇データ 

ゎァ be b5.fo4.b3. ■ hi■ bp 

MSB OGRBO 00 0 LSB 

カラーコードを出力 


黒 0 OH 

青 1 OH 

赤 2 OH 

紫 3 OH 

緑 4 OH 

水色 5 0 H 

黄 6 OH 

白 7 OH 

ポーダーカラーの I/O ポート 

COLOR 文の第 3 パラメータで指定した場合，この OUTPUT データが，セグメント 60 H のアド 
レス 641 H に入れられます0 

4-4 グラフィック BIOS と GDC (Graphic Display Controller) 

PC -9801 には，グラフィック描画に GDC/^PD 7220 という LSI を用いています。 

この LSI は，テキスト画面に高速多機能に文字を描くのにも使うことができ， PC -9801 には，グ 
ラフィック用とテキスト用の 2 個の GDC が使われております。 

GDC を用いると，高解像度画面に，高速に直線，円孤，箱型等を描画することができますが，そ 
のデータのセット，タイミング等の処理が面倒です。 

例えば，直線ですと，始点•終点を指定するのではなく， 

〇始点 

〇方向 

〇長さ 

を指定しなければならず，この計算がなかなか面倒なものです。 

しかし，心配はいりません。 N 88 -BASIC (86) の BIOS の中に GDC を制御するプログラムが用 
意されています。 

ここでは， GDC を直接制御するのではなく，この BIOS の使い方を説明しましょう。 
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4-4-1 グラフィック BIOS のワークエリア 

グラフィック BIOS のワークエリアは，セグメント60 H の640 H からです。表4-4-1にして，そ 
の意味をまとめています。 

このワークエリアに値をセットして， AH に BIOS コマンド•コードをセットして， INT 18 H 
によって，グラフィック BIOS を使用します。 


6 4 0 H 

GBON - PTN 

カラー 

ハ。レットを設定する。 


下位3ビットに色の情報を書き込む 


0 

里 

(デフォルト） 


1 

月 

(デフォルト） 


2 

赤 

(デフォルト〉 


3 

紫 

(デフオルト） 


4 

緑 

(デフオルト） 


5 

水色 

(デフォルト） 


6 

黄 

(デフォルト） 


7 

白 

(デフォルト） 

6 41 H 

GBBCC ボーダー カラ 

一を設定する。 


0 0 

里 

(デフォルト） 


.1 0 




2 0 

赤 



3 0 

紫 



4 0 

緑 



5 0 

水色 



6 0 

黄 



7 0 

白 



6 4 2 H 


GBDOTU 、1つのプレーンだけを処理するときのモード。 

0 リプレース （置き換え） 

1 コンプリメント （ XOR ) 

2 クリア ( NOT ) 

3 セット （ OR ) 

2のクリアは描画ノ、。ターンの1に対応する画面上のドットを0にします。 

3のセットはクリアと逆に,描画パターンの1に対応する画面上のドットを1にします。 


6 4 3 H 


GBDSP 


描画方向の指定 
4 



〇〜7の数字で，描く方向を指定します。方 
向と数字との対応は，左図のとおりです。 
矢印先端の数字は箱型 
矢印中心の数字は円孤 


6 4 4 H 
6 4 7 H 


カラー パレッ トの章を参照して下さい。 
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6 4 8, 9 H 

GBSX 1 描画始点の X 座標 

6 4 A , BH 

GBSY 1 描画始点の Y 座標 

6 4 C , DH 

GBLNG 1 何ドット描くかのドット数の指定 

6 4 E , FH 

GBWDPA 

描画パタ ー ン•バッファのスタートオフセットアドレス 
(セグメントアドレスは ES レジスタで指定します。） 

6 5 0， 1 H 

GBRBUF 1 

描画画面からドット情報をよみ出す場合のバッファ1(プレーン1，4用の）の 
先頭オフセットアドレス。 

6 5 2， 3 H 

GBRBUF 2 上と同じ。ただし，プレーン2,5用。 

6 5 4， 5 H 

GBRBUF 3 上と同じ。ただし，プレーン3,6用。 

6 5 6, 7 H 

GBSX 2 LINE の終点の X 座標 

6 5 8, 9 H 

GBSY 2 LINE の終点の Y 座標 

6 5 A , BH 

GBMDOT マスキングドット数 

円孤の描画時に使用する。 

円孤描画の章を参照。 

6 5 C , DH 

GBCIR 円の半径 

6 5 E , FH 

GBLNG 2 

グラフィック文字の書き込みの場合の（たて方向のドット数）一1 
ただし，8 X 8ドット文字の場合は，0を入れる。 

6 6 0 ,1 H 

GBLPTN 線種パターン 

直線，円孤描画のときの線の情報 

BASIC のラインスタイルと同等。 

6 6 2 H 

1 

GBDOTI 

8 X 8ドット グラフィック文字基本パターンバッファ。 

6 6 7 H 


6 6 8 H 

GBDTYP 描画タィプ 

1 直線 

2 矩形 （ BOX ) 

4 円孤 

111 OH 

グラフィックハ。ターンのハ♦ッファとして使う。 

GBRBUF 1 〜3のバッファとして使用するとよい。 


表 4-4-1 グラフィック BIOS のワークエリア 
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4-4-2 PSET ドットをうつ 

AH に BIOS コード45 H をセットし， CH に，以下の情報（図 4-4-2) をセットします。 


by bg bs b4 ba わ 2 bj bo 

レジスタ 

CH 0000 


プレーンセレクト. 

0 0 プレーン 1 (プレーン 4) 

01 プレーン2 (プレーン 5) 

10 プレーン3 (プレーン 6) 

11 全プレーン1〜3 (4 〜 6) 

0 LOWER プレーン 

(プレーン1〜3をセレクト） 
または， 640 X 400 ドットの場合 
1 UPPER プレーン 

(プレーン4〜6をセレクト） 


-解像度モードセレクト 

0 標準解像度 640 X 200 
1 専用高解像度 640 X 400 

図 4-4-2 ドット情報セット 


例えば， 640 X 200 ドットモードで，プレーン1〜3に同時に書き込む場合は, 

by be bs b4 ba b2 2 i b 。 


II 


0 0110 0 0 0 B 


16 進表記すれば， 30 H を CH レジ.スタにセットすればよいことになります。 

ES レジスタに描画パターンバッファのセグメントアドレスをセットします。 N 88 - BASIC (86) の 
ワークエリアを利用するなら，セグメント 60 H のオフセット 1110 H を指定して下さい。 

DS レジスタに60 H をセットする。 

BX レジスタに 640 H をセットする。 

表 4-1-1 で示した BIOS のワークエリアの中で表 4-4-2 のものを指定する。 
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GBON-PTN 

6 4 0 H 

カラーパレット番号 

GBDOTU 

6 4 2 H 

CH レジスタの b 4 b s に 

00，01，10 
を指定したときに 
ドットをうつモードを指定 

GBSX 1 

648, 9 H 

X 座標 

GBSY 1 

6 4 A , BH 

Y 座標 

GBLNG 1 

6 4 C , DH 

ドット数。1点だけうつならば 

1をセットする。 

GBWDPA 

6 4 E , FH 

描國パターンバッファの開始 
オフセツトアドレス 

1110 H を指定すればよい。 


表 4-4-2 BASIC のワークエリアを利用 

PSET ( X , Y )， C として使うなら， 

( 6 4 8， 9 H ) = X 
(6 4 A ， BH)=Y 
( 6 4 0 H ) = C 

(6 4 C , DH )=1 
(6 4 E , FH )=111 OH 
(1110, 1 H ) 二 FFH 
とすればよいわけです。 

この コマンドは， 1点をうつ以外にも， GBLNG 1 (64 C , DH ) にうつドット数を指定すること 
にって，連続的にドットをうつこともできます。ただし，指定できるドット数は， 



画面右最下端の点（最終的） 


図 4-4-3 ドットの指定数 


図 4-4-3 に示すように，始点（ X ， Y ) から最終点までのドット数までです。それ以上を指定する 
と暴走することがあります。しかし，連続してドットをうつ方が，1ドット当たりの描画時間は極 
端に短くなります。例えば，1ドットだけの場合2 msec 程ですが，100〇ドット連続に描いた場合1 
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ドット当たり0.02 msec にもなります。 

PSET (200，100)，7と同等の処理をマシン語で行った例を次に示します。 


PSET (200, 100), 7 と同等の処理プログラム 


0000 16 

PUSH 

SS 


000116 

PUSH 

SS 


0002 1F 

POP 

DS 

DS = ES=SS=60H にする注） 

0003 07 

POP 

ES 


0004 B007 

MOV 

AL, 

07; カラーパレツト = 7 通常白（ここを 0 にすると PRESET になる） 

0006 A 24006 

MOV 

[0640], AL 

0009 B 80800 

MOV 

AX, 

00C8 ; X=200 

000C A 34806 

MOV 

[0648], AX 

000F B 86400 

MOV 

AX, 

0064 : Y=100 

0012 A34A06 

MOV 

： 064A：,AX 

0015 B 80100 

MOV 

AX, 

0001;1 ドット 

0018 A34C06 

MOV 

[064C]，AX 

001B B 81011 

MOV 

AX, 

1110 :描画パターンのバッファ先頭オフセットアドレス 

001E A34E06 

MOV 

[064E],AX 

0021 B8FF00 

MOV 

AX, 

00FF ;描画パターン 

0024 A 31011 

MOV 

[1110], AX 

0027 B530 

MOV 

CH, 

30 ; 640X200 モード，プレーン 1 〜 3 

0029 BB4006 

MOV 

BX, 

0640 1 

002C B445 

MOV 

AH, 

45 BIOS コマンド実行 

002E CD18 

INT 

18 

1 

0030 31C0 

XOR 

AX, 

AX ； 

0032 CF 

IRET 




カラーパレット640 H は，この例では，7ですが，00 H にすると， PRESET となります。 
INT 18 H 前のすべてのレジスタは壊されません。 

注）モニタに入ったときとか， USR , CALL でマシン語プログラムを読んだ際には， SS レジス 
夕にはテキストセグメントの値60 H が入っています。 


4-4-3 ドットを読み出す 

4-4-2 の PSET は画面にドットをうち出しましたが，今度は，その逆に，画面上のドットパター 
ンをワークエリア上のパッファに読み込む命令です。 

AH レジスタに BIOS コード46 H をセットし， CH レジスタ DS ， BX , ES レジスタは， 4-4-2 P 
SET と同様の内容をセットし， BIOS のワークエリアの中で表 4-4-3 のものを指定します。 
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16 

16 

IF 

07 

B8C800 

A 34806 

B 86400 

A34A06 

B 81000 

A34C06 

B 81011 

A 35006 

051000 

A 35206 

051000 

A 35406 

B530 

BB4006 

B446 

CD18 

31C0 

CF 


PUSH 

PUSH 

POP 

POP 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

ADD 

MOV 

ADD 

MOV 

MOV 

MOV 

MOV 

INT 

XOR 

I RET 


DS = ES = SS = 60H 


SS 
SS 
DS 
ES 

AX,00C8; X=200 
[0648],AX 
AX, 0064 : Y=100 
[064A],AX 

AX, 0010 : 16 ビット読み込む。 

[064C],AX 

AX, 1110 ; 読み込みバッファ 1 のオフセットアドレス 
[0650], AX 

AX,0010 ; 読み込みバッファ 2 のオフセットアドレス 
[0652],AX 

AX,0010 ; 読み込みバッファ 3 のオフセットアドレス 

[0654], AX 
CH,30 : 


BX,0640 : 
AH,46 \ 
18 J 
AX,AX ; 


640X200 モード。プレーン， 1 〜 3 。 

BIOS のワークエリアのオフセツトアドレス。 

BIOS CALL 

USR 等でよんだときエラーがでないため。 


座標 (200, 100)から連続して16ドットプレーン1〜3から同時に読み込むプログラムです。バッ 
ファは，セグメント 60 H の 

1110 H . GBRBUF 1 


GBSX 1 

6 4 8, 9 H 

読み込み始点の X 座標 

GBSY 1 

6 4 A , BH 

読み込み始点の Y 座標 

GBLNG 1 

6 4 C , DH 

始点から何点読み込むかのドット数。 

GBRBUF 1 

650,1 H 

読み込んだドット情報を格納するバッファ1のオフセットアド 
レス。 CH レジスタの b 6 が， 

0…プレーン1 

1…プレーン4 から読み込む。 

GBRBUF 2 

6 5 2,3 

読み込みバッファ2。 CH レジスタの b 6 が， 

0…プレーン2 

1…プレーン5 から読み込む。 

GBRBUF 3 

6 5 4,5 

読み込みバッファ3。 CH レジスタの b 6 が， 

0…プレーン3 

1…プレーン6 から説み込む。 


表 4-4-3 A ドット•リード BIOS ワークエリア 


次にサンプルプログラムを示します。 

16 ドット連続リードプログラム 


012347 AD0369CF258ADF13 
0000000011111122222233 
0000000000000000000000 
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
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h]C60 

h ： Dlll 0,1140 
1110 A5 A5 00 
112 0 00 00 00 
1130 A5 A5 00 
1140 00 


h ： C60 

hDDlll 0,1140 
1110 A5 A5 00 
1120 A5 A5 00 
1130 A5 A5 00 
1140 00 


となっていました。プレーン 2 に対応する部分が，000 0 H ですね。カラーパレット5というのは, 
通常，水色ですが，これは，プレーン1(通常，青）とプレーン3 (通常，緑）を合成して作るか 
らなのです。つまり，このとき，プレーン2は使用しないからなのです。ここで，色とプレーンの 


確かに， LINE のパターン A 5 A 5 H が入っていますね。上から順に，プレーン1，2，3の情報 
です。今は，カラーパレット番号に7を指定したので，3つとも A 5 A 5 H になったのです。 

では， BASIC に戻って，一旦，画面を 
ROLL 199 

で消去したあと，今度は，次の BASIC プログラムを走らせてみて下さい。今度は，カラーパレット 
を5にしました。 

10 LINE (200,100)-(220,100),5,,&HA5A5 

ここで，先程のサンプルプログラムを走らせて下さい。 

今度はバッファにどのような値が入ったでしようか？さっきと同じようにして，モニタで見ま 
すと， 


112 0 H . GBRBUF 2 

113 0 H . GBRBUF 3 

としました。 

まずモニタで， 

h ] C 6 0 

h ] F 1110,114 0, 0 

と，バッファを0クリアして， BASIC にもどり，次の BASIC プログラムを走らせてから，先程の 
サンプルプログラムを走らせて下さい。 

10 LINE (200,100)-(220, 100), 7"&HA5A5 

モニタでバッファの中身を確かめてみましょう n 


0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 


0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 
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関係について説明しておきましょう。 

プレーン1 (4) ……青 0 01 B 二1 

プレーン2 (5) ……赤 01 0 B =2 

プレーン3 (6) ……緑 10 0 B =4 

が光の三原色に対応していて，この三原色合成で，他の5色も表示するのです。 

プレーン 1 〜 3 でページ 1 
フ°レーン 4 〜 6 でページ 2 

を形成します。カラーパレットの章で示した GRB (Green • Red • Blue ) のビットとカラーコー 
ド，色の関係は，プレーンで表わせば，次表のようになります。ただし，これは， 640 X 200 ドット 
カラーモードで， 640 X 400 ドットカラーモードのときは，ページ1と2を組み合わせて，1ページ 
とします。対応する色は同じです。白黒モードの場合は，色の合成としての意味はなく，プレーン 
の合成としての意味となります。 


GRB 

カラーコード 

色 

色の合成 

プレーン 

0 0 0 

0 

里 

発光させない。 

全プレーン表示しない。 

0 01 

1 

主 

三原色の1 つ。 

プレーン1 (4) 

010 

2 

赤 

三原色の1 つ。 

ブレーン2 (5) 

011 

3 

紫 

青 （1) と赤 （2) の合成で， 

1 + 2 = 3 

プレーン1 (4) と 

プレーン2 (5) の合成 

10 0 

4 

緑 

三原色の1 つ。 

プレーン3 (6) 

101 

5 

水色 

青 （1) と緑 （4) の合成で， 

1 + 4 = 5 

プレーン1 (4) と 

ブレーン3 (6) の合成 

110 

6 

黄 

赤 （2) と緑 （4) の合成で， . 

2 + 4 = 6 

ブレーン2 (5) と 

プレーン3 (6) の合成 

111 

7 

白 

青 （1) と赤 （2) と緑 （4) 

の合成で， 

1 + 24-4 = 7 

全プレーンの合成 

1と2と3 (4 と5と 6) 


表 4-4-3B GRB のビットとカラーコードとプレーン だたし， （） の中はページ2のとき。 

4-4-4 直線，箱型を描く LINE 
BASIC の LINE ステートメントに相当する命令です。 

AH レジスタに BIOS コード47 H をセットします。 

CH ， DS , BX レジスタは， 4-4 -2と同様の内容をセットします。 

BIOS のワークエリアの中で表 4-4-4 のものを指定します。 
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GBON-PTN 

6 4 0 H 

カラーパレット 番号 

GBDOTU 

6 4 2 H 

CH レジの b 5 b 4 = 0 0, 01,10を 

指定したとき，つまり，単一画面にだ 

け直線をひくときの描画オペレー ショ 

ンモード。 

GBSX 1 

6 4 8, 9 H 

始点の X 座標 

GBSY 1 

6 4 A , BH 

始点の Y 座標 

GBSX 2 

6 5 6， 7 H 

終点の X 座標 

GBSY 2 

6 5 8, 9 H 

終点の Y 座標 

GBLPTN 

6 6 0,1 H 

ラインスタイル 

GBDTYP 

6 6 8 H 

1……直線 

2……箱型 ( LINE の B 指定に相当) 


表 4-4-4 LINE の BIOS ワークエリア 


次にサンプルプログラムとして， 

LINE (300， 10)-(620, 100), 7, ，& HFFFF を実行したプログラムを示します。 
LINE (300, 10) - (620,100)，7 ,，& HFFFF 


0000 

16 

PUSH 

0001 

1F 

POP 

0002 

B007 

MOV 

0004 

A 24006 

MOV 

0007 

B82C01 

MOV 

000A 

A 34806 

MOV 

000D 

B80A00 

MOV 

0010 

A34A06 

MOV ； 

0013 

B86C02 

MOV 

0016 

A 35606 

MOV 

0019 

B 86400 

MOV 

001C 

A 35806 

MOV 

001F 

B8A5A5 

MOV 

0022 

A 36006 

MOV 

0025 

B001 

MOV 

0027 

A 26806 

MOV 

002A 

B530 

MOV 

002C 

BB4006 

MOV 

002F 

B447 

MOV 

0031 

CD18 

I NT 

0033 

31C0 

XOR 

0035 

CF 

I RET 


pg } DS = SS = 60H 

AL,07 ; カラーパレット = 7 

[0640]，AL 

AX ， 012C ; Xl=300 

[0648],AX 

AX,000A : Yl = 10 

[064A],AX 

AX,026C : X2=620 

[0656],AX 

AX,0064 ; V2=100 

[0658], AX 

AX,A5A5 :ラインスタイル 
[0660], AX 
AL,01 ; 直線 

[0668],AL 
CH,30 ; 640X200 

BX,0640 

か 47 } BIOS CALL 
18 i 

AX, AX 
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ただし，箱型を描く場合は， 

GBDSP (643 H ) 

描画方向の指定をしなければなりません。方向と数字については，表 4-4-1 グラフィック BIOS の 
ワークエリアを參照して下さい。 

方向に対して，どのような箱型が描かれるかを例をあげて説明しますと，図 4-4-4 A のような位 
置に2点を指定し，（始）と書いてある点を始点としますと，直線ならば，1本に決まります。 


ふ 



図 4-4-4 A 2点と直線 


しかし，箱型の場合 ， GBDSP (描き出す方向）を適切に決めないと，図 4-4-4 B のような箱型を 
描いてしまいます。 



n 






図 4-4-4 B 2点と箱型 
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方向 3 と 7 は，始点の描き出す方向と終点が一致せず，発散してしまいました。 

方向1と5は，ひし型となってしまい，方向2, 4，6は画面からはみ出してしまいました。 
この場合適切な方向は0でしょう。 

次に，箱型を描く場合の2点の位置関係による適切な方向を示しておきましょう。 



図 4-4-4 C 2点と箱型の適切な方向 
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4-4-5 円狐を描く CIRCLE 

N 88 -BASIC (86) の CIRCLE に相当する命令ですが， GDC は，+円孤しか描くことができませ 
ん。そのため，円を描くには ， GBDSP (643 H ) の描く方向を8回変えて，描かなければいけませ 

ん〇 

4-1-1 で説明を残しておいた ， GBMDOT (65 AH , 65 BH ) マスキングドット数をここで説明致 
します。 

円孤の描画方向の意味は，具体的には下図のようになっております。 





方向丨で円孤を 
描いた場合 


方向4で円孤を 




方向 I , 2, 5，6はたて軸を 
始点として描かれる。 


方向0，3，4，7はよこ軸を 
始点として描かれる。 


図 4-4-5 A 円孤の描画方向の意味 


ここで，マスキングドット数を指定すると，1円孤より少さな円孤を描くことができます。マスキ 
ングドット数を指定すると，そのドット数分だけ，始点からの円孤が描かれません（図 4-4-5 B )。 
そのドット数分だけのドットが，マスクされるのです。 
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マスキング 

ドット数 
この部分の) 
ドットは描 
\かれない。ノ 


図 4-4-5 B マスキングドット数の指定 


ドット数は，円孤にそってのドット数ではなく，次図のように，始点の存在する軸からのドット 
で計った垂直距離となります。 




図 4-4-5 D 始点が縦軸にある場合 


94 

















それでは，円孤描画の BIOS コールを説明しましょう。 

AH レジスタに BIOS コード 48 H をセットします。 

CH , DS , BX レジスタには， 4-4-2 PSET と同じ値をセットします。 
BIOS のワークエリアの中で表 4-4-5 のものを指定します。 


GBON-PTN 

6 4 0 H 

カラーパレット番号 

GBDOTU 

6 4 2 H 

単一画面のときのオペレーシヨンモード 

GBDSP 

6 4 3 H 

描画開始方向 

GBSX 1 

6 4 8, 9 H 

円孤の描画開始の X 座標 

GBSY 1 

6 4 A , BH 

円孤の描画開始の Y 座標 

GBLNG 1 

6 4 C , DH 

描画ドット数 

GBMDOT 

6 5 A , BH 

マスキングドット数 

GBCIR 

6 5 C , DH 

円の半径（ドット数） 

GBLPTN 

6 6 0，1 H 

ラインスタイル 

GBDTYP 

6 6 8 H 

4 (円孤）をセットする 


表 4-4-5 円孤描画の BIOS ワークエリア 


ただし，描画ドット数は，以下の理由により，制限があります。 



図 4-4-5 E 描画ドット数の制限 


GBSX 1と GBSY 1は，円の中心ではなく，描画開始点を指定します。つまり，円の中心から半 
径のドット数だけずれた位置になります（図 4-4-5 F 参照)。 
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(GBSXI ， GBSYI) 
は円の中心ではなく， 
描画開始点を指定する 


図 4-4-5 F 描画開始点の指定 


もう1つ注意することは，このコマンドで描画する円孤は専用高解像度 (640 X 400) の縦横比で 


行われるということです。 

したがって， 640 X 200 ドットモードで描画を行う場合は，縦方向に長い 

円孤となります。 



円孤描画プログラム 



0000 16 

0001 1 F 

PUSH 

POP 

} DS = SS=60H 

0002 B 007 

MOV 

AL >07 ; カラーパレット = 7 

0004 A 24006 

MOV 

[0640 ], AL 

0007 B 004 

MOV 

AL ,04 ; 描画開始方向 

0009 A 24306 

MOV 

[0643 ],AL 

000 C B 89001 

MOV 

AX ,0190 ; 400+50= X 

000 F A 34806 

MOV 

[0648 ],AX 

0012 B 86400 

MOV 

AX, 0064 ; V=100 

0015 A 34 A 06 

MOV 

[064 A],AX 

0018 B 82400 

MOV 

AX , 0024 ; 描画ドット数 

001 B A 34 C 06 

MOV 

[064 C],AX 

001 E B 80000 

MOV 

AX , 0000 ; マスキングなし 

0021 A 35 A 06 

MOV 

[065 A],AX 

0024 B 83200 

MOV 

AX, 0032 : 半径 =50 

0027 A 35 C 06 

MOV 

[065 C],AX 

002 A B 8 FFFF 

MOV 

AX,FFFF ; 円孤 

002 D A 36006 

MOV 

[0660], AX ; ラインスタイル = 実線 

0030 B 004 

MOV 

AL ,04 ; 640X200 ドットモード 

0032 A 26806 

MOV 

[0668], AL 1 

0035 B 530 

MOV ； 

CH ,30 BI0S CALL 

0037 BB 4006 

MOV 

BX ,0640 J 

003 A B 448 

MOV 

AH , 48 

003 C CD 18 

I NT 

18 

003 E 31 C 0 

XOR 

AX , AX 

0040 CF 

I RET 



これを，描画開始点と方向を変えながら，8回くり返すと円ができます。次にそのサンプルプロ 
グラムを示します。描画開始点を®©® ㊁ と変えて描いています。 
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ss 

DS 

AL ,07 
[0640 ], AL 
AL ,04 
[0643 ],AL 
AX ,01 C 2 
[0648 ],AX 
AX , 0064 
[064 A],AX 
AX , 0025 
[064 C],AX 
AX , 0000 
[065 A],AX 
AX , 0032 
[065 C],AX 
AX,FFFF 
[0660 ], AX 
AL ,04 
110668：, AL 
CH ,30 
BX ,0640 
AH , 48 
18 

AL ,07 
[0643 ],AL 
18 

AX ,[065 C ] 
DX,AX 
AX , [0648] 
AX,DX 
AX,DX 
[0648 ],AX 
AL ,03 
[0643 ], AL 
AH , 48 
18 

AL ,00 
[0643 ],AL 
18 

AX ,[0648] 
AX,DX 
[0648 ], AX 
AX ,[064 A ] 
AX,DX 
[064 A],AX 
AL ,02 
[0643 ], AL 
AH , 48 
18 

AL ,05 
[0643 ],AL 
18 

AX ,[064 A ] 
AX,DX 
AX,DX 
11064 A],AX 
A し, 01 : 


• 方向 4 


この部分は前のサンプルプログラムと同じ。 



方向= 


; DX = 半径 



:描画開始点を◎の位置にする 


方向=3 



方向= 


:描画開始点を0の位置にする 


;方向=2 


方向= 



:描画開始点を ㊁ の位置にする。 


方向= 


円の描画プログラム 

0000 16 
0001 1 F 
0002 B 007 
0004 A 24006 
0007 B 004 
0009 A 24306 
000 C B 8 C 201 
000 F A 34806 
0012 B 86400 
0015 A 34 A 06 
0018 B 82500 
001 B A 34 C 06 
001 E B 80000 
0021 A 35 A 06 
0024 B 83200 
0027 A 35 C 06 
002 A B 8 FFFF 
002 D A 36006 
0030 B 004 
0032 A 26806 
0035 B 530 
0037 BB 4006 
003 A B 448 
003 C CD 18 
003 E B 007 
0040 A 24306 
0043 CD 18 
0045 A 15 C 06 
0048 89 C 2 
004 A A 14806 
004 D 29 D 0 
004 F 29 D 0 
0051 A 34806 
0054 B 003 
0056 A 24306 
0059 B 448 
005 B CD 18 
005 D B 000 
005 F A 24306 
0062 CD 18 
0064 A 14806 
0067 01 D 0 
0069 A 34806 
006 C A 14 A 06 
006 F 01 D 0 
0071 A 34 A 06 
0074 B 002 
0076 A 24306 
0079 B 448 
007 B CD 18 
007 D B 005 
007 F A 24306 
0082 CD 18 
0084 A 14 A 06 
0087 29 D 0 
0089 29 D 0 
008 B A 34 A 06 
008 E B 001 


uoooooooooooooooo v oo v oo V05 N T o v dNO o v ou B u B boo V O N T oo V N 6 DOODOOOONO 犯 NgD u B3 u B1 0 VV1 n V 

ppmmmmmmmmmmmmmmmmmmmmmimmimmmssmmmmimmimammammmmimmimssmm 
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0090 A 24306 
0093 B448 
0095 CD18 
0097 B006 
0099 A 24306 
009C CD18 
009E 31C0 
00A0 CF 


4-4-6 グラフィックバタ 


MOV 

[0643],AL 

MOV 

AH, 48 

INT 

18 

MOV 

AL,06 ; 

MOV 

[0643],AL 

INT 

18 

XOR 

AX, AX 

I RET 



ンを描く 


方向= 6 



基本パターンが8 X 8ドット以内で構成される，グラフィックパターンで，指定領域を埋めるこ 
とができます。 


AH レジスタに BIOS コード49 H をセットします0 

CH ， DS ， BX レジスタを 4-4-2 PSET と同じようにセットします0 

BIOS ワークエリアのうちで，次のものをセットします。 


GBON-PTN 

6 4 0 H 

カラーパレット 

GBDOTU 

6 4 2 H 

単一画面時 

CH レジスタの b 5 b 4 ->11 

GBDSP 

6 4 3 H 

描画方向 

GBSX 1 

6 4 8, 9 H 

描画開始 X 座標 

GBSY 1 

6 4 A , BH 

描画開始 Y 座標 

GBLNG 1 

6 4 C , DH 

よこ方向ドット数 

(描画開始方向） 

GBLNG 2 

6 5 E , FH 

たて方向ドット数 

(描画開始方向と垂直） 

GBDOTI 

6 6 0 H ~ 6 6 7 H 

(8 バイト） 

グラフィック 基本パターン 

格納バッファ。 


表 4-4-6 グラフィックパターンの BIOS ワークエリア 


次に，サンプルプログラムを示します。方向を〇〜7に変えたり，描画領域8 X 8を色々とかえ 
てみると面白いですよ。 
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グラフィックパターン描画プログラム 


0100 18 3C 7E DD FF 
0110 18 3C 7E DD FF 
0120 FF FF FF FF FF 


16 

PUSH 

SS 1 

IF 

POP 

DS I 

B007 

MOV 

AL,07 

A 24006 

MOV 

[0640], AL 

B002 

MOV 

AL,02 

A 24306 

MOV 

[0643], AL 

B8C800 

MOV 

AX,00C8 

A 34806 

MOV 

[0648],AX 

886400 

MOV 

AX, 0064 

A34A06 

MOV 

[064A],AX 

B 80800 

MOV 

AX, 0008 

A34C06 

NOV 

[064C],AX 

B 80800 

MOV 

AX,0008 

A35E06 

MOV 

[065E],AX 

B 90400 

MOV 

CX,0004 

BE0001 

MOV 

SI ,0100 

BF6006 

MOV 

DI ,0660 

0E 

PUSH 

CS 

IF 

POP 

DS 

16 

PUSH 

SS 

07 

POP 

ES 

FC 

C し D 


F3 

REP 


A5 

MOVSU 


16 

PUSH 

SS 1 

IF 

POP 

DS f 

BB4006 

m\j 

BX, 0640 

B530 

MOV 

CH,30 

B449 

MOV 

AH,491 

CD18 

INT 

18 / 

31C0 

XOR 

AX, AX 

CF 

IRET 



DS = SS =60 H 

;カラーパレット 
；方向 
; X=200 
; Y=100 
; 描画領域 8X8 

:基本パターンを BIOS のワークエリアに転送 


DS = SS = 60 H 

BIOS CALL 


•パターン1 
•パターン2 
•パターン3 


基本パターンを 100H からの8バイトに入れておきます。 
次のパターンを入れて実行させて下さい。 


28 H 番地を10 H にすると，パターン2を表示できます。パターン3は消去用で，28 H 番地を20 
H にすると表示できます。パターン3は，このままだとぬりつぶしになりますが，3 H 番地のカラー 
パレット No. を0にすると，表示を消去することができます。 

サンプルプログラムとこのデータを入力する時に DEF SEG = &H1F00 として下さい。そのあと 
で次のプログラムを走らせてみて下さい。 


0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

2 5 F 

4 A F 

1 A F 
8 5 F 

A 4 F 

5 2 F 


012479 CF 2 5 8 BE147ADE.fr 01234569 BDF1 
00000000111112222222333333333334 
00000000000000000000000000000000 
0000000000000 0 000000000000000000 
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インべーダーパターン描画プロクフム 


SAVE 卞 AT2.BAS' 

DEF USR=0 
WHILE 1=1 

POKE 3,0:POKE &H28,&H20:A=USR(0) 

POKE 3,7:POKE &H28,&H10:A=USR(0)：REM PATTERN 1 
60SUB *TIMER 

POKE 3,0:POKE &H28,&H20 ： A=USR(0) 

POKE 3,7:P0KE &H28,0 ： A=USR(0) : REM PATTERN 2 

GOSUB *TIMER 
UEND 
END 

^TIMER 

FOR T=1 TO 500: NEXT 
RETURN 


例のインベーダーパターンが表示されたでし ょつ。 

描画領域 19 H と 1 FH をそれぞれ， 0,50 H または，50 H ， 0と変えて同じことを行って下さ 
い。インベーダーが縦や横に一列に並んで表示されたでしょう。 

N 88 -BASIC (86) でいうならば，このパターンは PAINT のタイルパターンに相当するもので 
す 。 

応用すれば，キャラクタ.ジヱネレータにない文字などを自分で作って表示することもできます。 
次にそのパターンの作成法を示します。 


d7 d6 ds d4 d3 d 2 di do 


I 8H 
3CH 
7EH 
DDH 
FFH 
5AH 
8 I H 
4 2H 


図 4-4-6 パターン作成法 


8 X 8ドットのマス目を描き，図形を作成します。点のある位置を1,ない位置を0として，よ 
8ビットを図 4-4-6 のように1バイトにまとめて数字化します。 


/ 0 0 0 0 0 0 0 0 0 0 0 0 0 
0123456789012 
01111111111222 
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4-4-7 高速書き込みモードにする 

SCREEN の第2パラメータの高速書き込み モー ドに相当します。高速書き込み モー ドには次の 
2種類あります。 

① フラッシュモード . 画面がちらつくが②より高速 

② フラッシュレスモード……画面はちらつかないで高速 
SCREEN の第2パラメータは①に相当します。 

①は CH レジスタに06 H をセットし，②は16 H をセットし，単に次の BIOS コールをすればよ 
いです。 

MOV AH , 4 AH 
I NT 18 H 

SCREEN の第 2 パラメータは，画面の一時停止（グラフィックマスクスイッチ）の機能もありま 
すが， 

MOV AH , 41 H 
I NT 18 H 

で，グラフィック画面は一時停止されます。再開するには， 

MOV AH , 4 OH 
I NT 18 H 

とします。 

SCREEN で高速書き込みをセレクトする場合は，画面がちらつきますので， 

SCREEN , 3 

で，高速書き込み，グラフィックをマスクしておいて， LINE など，なんらかの処理をして， 

SCREEN , 0 

とするとよいでしょう。ただしこの場合，描画中は，グラフィック画面は消えます。表示したまま 
行う場合は，上記②のフラッシュレスモードで行うとよいでしょう。 

4-5 マシン語による G-VRAM 直接アクセス法 

G-VRAM は， GDC と CPU の二者でアクセスできるため， CPU から直接アクセスする場合は， 
GDC が描画していないときにアクセスしなければなりません。さもないと，期待した描画が行われ 
ないことがあります。 

GDC が描画中かどうかを表わすフラグは， I / O ポート A 0 H をよみ，そのデータの b 3 ビットを判 
断して， 

1 . 描画中である。 

0 . 描画していない。 

となります。 
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その他のビットの意味は，表 4-5 のようになります。 


ビット 

フラグ名称 

機 能 

b 。 

DATA Ready 

GDC が Read などの読み出しコマンド実行後読み出しデータが，読み 
出し可能になった。 

b , 

FIFO Full 

GDC のコマンド FIFO がいっぱいになった。 

ゎ2 

FIFO Empty 

GDC のコマンド FIFO が空である。 

b 3 

Drawing 

GDC が描画中。 

b 4 

DMA Execute 

DMA 転送を続行中である。 

b 5 

Vertical SYNC 

垂直同期信号 （ VSYNC ) が発生している。 

b 6 

Horizontal BLANC 

水平消去信号 （ HBLANK ) が発生している。 

b 7 

Light Pen Detect 

ライトペン信号によるアドレスの検出が成された。 


表 4-5 I/O ポート AOH の Read 内容 


フローチャートとサンプルプログラムを示しておきます。 



GDC の Drawing の 

同期を待つ。 


G-VRAM 直接アクセスのフローチヤート 
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WA I T 1： 

IN 

AL , 

0 AOH 、 



TEST 

AL , 

0 4 H 

► FIFO Empty になるまでまつ。 


JE 

WAIT 1 ) 



PUSH 

AX 


26 クロック以上 CPU を走らせる。 


PUSH 

AX 


>丨 VRAM アクセス前処理等 j 


POP 

AX 


L をするとよい。 ' 


POP 

AX 



WA I T 2 : 

IN 

AL , 

0 AOH ] 



TEST 

AL , 

0 8 H 

^ Not-Drawing になるまでまつ。 


J NE 

WAIT 2 ] 

1 



VRAM をアクセスする 


G-VRAM 直接アクセスサンプルプログラム 


それでは， G - VRAM を直接アクセスする実際のプログラムを1つ紹介します。これには，ダラ 
フイックの全画面を 0.1 秒でオールクリアするルーチンとランダムにクリアするルーチンとが入つ 
ています。ランダムクリアには次の3つのクリアの方法があります。 

① カーテンコール •クリア 

カーテンを開けるように画面の左から右へと段階的にクリアします。 

② シャトル•クリア 

画面の上下からラインが往復（シャトル）するようにクリアします。 

③ バブル•クリア 

水面上で泡が現われては消えていくようにジワジワとクリアします。 

使い方は次のとおりです。 

DEF SEG =& H 1 F 0 0 
HCLS =0 

CALL HCLS ( A %, B %) 

A %= 0 : B %=0 のとき オール クリア 
A %= 1 のときランダムクリア 

B %= 1 . 力ーテンコールクリア 

B %=2 ……シャトルクリア 
B %= 3 バブルクリア 
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1'sa リ e "HCLS*BAS" 

100 SCREEN 3,0 
110 DEF SEG=&H1F00 
120 HCLS=0 

130 FOR 1=0 TO &H11A 
140 READ D$ : D=VAL(_&H_+D 丰） 
150 POKE I,D 
160 NEXT I 

170 LINE (0,0)-(639,399),6,BF 
180 A^=0 ： B^o=0 y All clear 
190 CALL HCLS(A°/o,B^o) 

200 LINE (0,0)-(639,399),7,BF 
210 A 0 / o =l ： B°/ o =3 7 Bubble clear 
220 CALL HCLS(A^o,B%) 

230 END 


240 DATA C4, 77 ， 04, 26,8B,04,8B,37,26,8B,1C,3D,00,00,74,06 
250 DATA 3D ， 01,00,74,2D,CF,E8,EF,00,B0,0C,E6,A2,B8,00,A8 
260 DATA E8,11,00,B8,00,B0,E8,0B,00,B8,00,B8,E8,05,00,B0 
270 DATA 0D,E6,A2,CF,B9,FF,3F,8E,C0,BF,00,00,33,C0,FC,F2 
280 DATA AB,C3,E8,C3,00,83,FB,01,74,0B,83,FB,02,74,44,83 
290 DATA FB, 03,74 •73,CF,B8,00,A8,E8,0D,00,B8,00,B0 ， E8,07 
300 DATA 00,B8,00,B8,E8,01,00,CF,B3,07,E8,0B,00,B3,03,E8 
310 DATA 06,00,B3,00,E8,01,00,C3 > 8E,D8,33,FF > B9 > 50,00,51 
320 DATA 57,B9,90,01,88,1D,83,C7,50,E0,F9,5F,83,C7,01,59 
330 DATA E0,ED,C3,B8,00,A8,E8,0D,00,B8,00,B0,E8,07,00,B8 
340 DATA 00,B8,E8,01,00,CF,8E,D8,33,DB,B9,FF,7C,E8,12,00 
350 DATA 87,CB,E8,0D,00,87,CB,43,43,49,49,8A,C5,3C,7F,75 
360 DATA EC,C3,C6,47,01,00,C3,B9,F5,1E,B8,00,A8,E8,0D，00 
370 DATA B8,00,B0,E 8,07 ,00,B8,00,B8,E8,01,00,CF,8E,D8,33 
380 DATA DB,33,D2,51,D0,FD,D0,D9,72 ， 07,D0,EE,D0,DA,E9,F3 
390 DATA FF, 59,52 ,8A,C7,0C,00 ， 8A,F8,C 6,47 ,01,00,03,D9,5A 
400 DATA 4A,8A > C6,0A,C2,75,EB,C3,E4,A0,A8,04,74,FA,E4,A0 
410 DATA A8,20,74,FA,E4,A0^8,08,75,FA,03,00,00,00,00,00 


， 0000H 

/0010H 

/ 0020H 

1030H 

/ 0040H 

J050H 

， 0060H 

1070 H 

， 0080H 

/ 0090H 

'00A0H 

/00B0H 

'00C0H 

， 00D0H 

/00 E 0 H 

10 F 0 H 

1100H 

1110H 


4-6 グラフィック LIO と BASIC コマンド 

4-4 でグラフィック BIOS を紹介しましたが， GDC を直接コントロールするコマンドばかりでし 
た。 

PC -8001 や PC -8801 は， BASIC コマンドの処理エントリーアドレスを使って，マシン語から直 
接 BASIC のステートメントを実行できました。 PC -9801 は，この考え方を進めて， BASIC のステー 
トメントのメイン処理エントリーを INT 命令でコールする形式でまとめた LIO (Logical Input 
Output ) というものが， ROM の中にブログラムされています。 

グラフィック LIO は， 

I NT A 0 H 〜 INT AFH 
I NT CEH 
となっています。 

ここで， BASIC のステートメントと LIO , BIOS , I/O 等のハードウエアの構造を図 4-6 としてま 
とめておきましょう。 
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Ngs-BASIC (86) 


() 


ステートメントの解析をして，式の評価, 
変数の管理をし， LIO へ引数を渡す。 
結果をもらうこともある。 



GDC など 


図 4-6 LIO の位置 


では，これから，グラフィックに関する LIO の使い方を BASIC のステートメントと対応づけな 
がら説明していきましょう。 


4-6-1 引数の渡し方 


引数は，テキストセグメント 60 H の，オフセットアドレス150 AH から，以下の図のように設定 
します0引数は， BASIC のステートメントの引数と対応しています。 INT コールするときは ， DS 
に 60 H , BX に150 AH を設定しておきます。 


引数1 

引数2 

引数3 


引数 n 


DS : BX 
/DS = 60 H \ 
Ux = l 50 AH ノ 


図 4-6-1 グラフィック LIO のパラメータの渡し方 


(正常終了時は， AH レジスタに0がセットされてきます。） 

4-6-2 グラフィック LIO コマンドー覧 

グラフィック LIO のコマンドー覧表（表 4-6-2) を示します。個々のコマンドの説明は， 4-6-3 か 
ら行います。 
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特に指定がない場合は， 

AH レジスタに正常終了なら0がセットされてきます。また，保証されるレジスタは， DS ， 
SS , SP の3つのレジスタです。 

引数の範囲のチヱックは行われませんので，呼び出す前に引数の範囲のチヱックを行って下さい。 
X , Y 座標の指定は2バイト整数，カラーコード，パレットの指定は1バイト整数です。 


コマンド名 

内部割り 
込みコード 

対応する BASIC ステートメント 

GINIT 

A0 

グラフィック LIO の初期化 

GSCREEN 

A 1 

SCREEN 

GVIEW 

A 2 

VIEW 

GCOLOR 1 

A3 

COLOR 

GCOLOR 2 

A4 

COLOR = (パレ ット#, カラー #) 

GCLS 

A5 

CLS 

GPSET 

A6 

PSET/PRESET 

GLINE 

A 7 

LINE 

GCIRCLE 

A8 

CIRCLE 

GPAINT 1 

A9 

PAINT 色でぬりつぶす 

GPAINT 2 

AA 

PAINT タイルパターン 

GGET 

AB 

GET 

GPUT 1 

AC 

画を PUT する 

GPUT 2 

AD 

漢字を PUT する 

GROLL 

AE 

ROLL 

GPOINT 

AF 

POINT 

GCOPY 

CE 

指定領域の表示情報を指定の格納 
エリアへ移動する 


表 4-6-2 グラフィック LIO コマンドー覧 

4-6-3 GINIT (INT AOH) 

⑴機 能 

グラフィック画面，ハ。レット番号等の初期化を行います0このコマンドを実行すると， 

① 画面モードはカラーグラフィックモード 

② アクティブ画面は0 

③ ディスプレイ画面は1 

④ パレット 番号と対応する，同じ カラーコードがセット される。即ち， カラーパレットの 初期化。 
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⑤アクティブ画面全体は初期状態になります。 


⑵入力条件 

• I NT A OH で呼び出します。 

• DS を6 OH 
♦引数はありません0 

⑶出力条件 

•保障されるレジスタ…… DS ， SS , SP 
籲 AH が0なら正常終了 

4-6-4 GSCREEN (INT A 1 H) 

⑴機 能 

画面モード，画面スイッチ，アクティブ画面，ディスプレイ画面をセットします。 
⑵引数テーブル 


BX = 150 AH ( DS 二 60 H ) 

•4 __ 


+ 0 

+ 1 

+ 2 

+ 3 

画面モード 

画面スイッチ 

アクティブ画面 

ディスプレイ画面 


それぞれの設定値は，次表のようになります。 


画面モード 


設定値 

モード 

0 

カラーグラフィック 640 X 200 

1 

モノクログラフィック 640 X 200 

2 

640 X 400 モノクロ 

3 

640 X 400 カラー 

FFH 

今までのモード変更しない 


画面スイッチ 


設定値 

グラフィック画面表示 

高速書き込み 

0 

有 

しない 

1 

有 

する 

2 

紐 

する 

3 

组 

する 

FFH 

今までのモード変更しない 
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< —プレーン番号一1に相当する 

2 ページ 
6 ページ 
3 ページ 

1 ページ 

ディスプレイ画面.プレーンについては，図 4-1-1 を参照して下さい。 

① 640 X 200 カラー 


設定値 

表示画面 

0 

表示しない 

1 

ブレーン1を表示 

2 

ブレーン2を表示 


② 640 X 200 モノクロ 


設定値 

表示画面 

0 

表示しない 

1 

プレーン1 

2 

プレーン2 

3 

プレーン1と2合成 

4 

プレーン3 

5 

プレーン1と3合成 

6 

プレーン2と3合成 

7 

プレーン1，2,3合成 

8 

表示しない 

9 

プレーン4 

A 

プレーン5 

B 

プレーン4と5 

C 

プレーン6 

D 

プレーン4と6 

E 

プレーン5と6 

F 

ブレーン4,5,6 


アクティブ画面 


画面モード 
の設定値 

画面モードの設定値に対する 
指定範囲 

0 

〇〜 1 

1 

〇〜 5 

2 

〇〜 2 

3 

0 


































(3) 640X400 モノクロ 


設定値 

表示画面 

0, 8 

表示しない 

1 

プレーン 1 

2 

プレーン 2 

3 

プレーン 1と2 

4 

プレーン 3 

5 

プレーン 1と3 

6 

プレーン 2と3 

7 

プレーン 1,2，3 


④ 640X400 カラー 


設定値 

表示画面 

0, 8 

表示しない 

1 

プレーン 1 


4-6-5 GVIEW (INT A 2 H ) 

⑴機 能 

アクティブ画面内のビューポートを指定します。また，ビューポート内のぬりつぶし，外枠の 
描画を行います。このコマンド発行後図形描画は，ビューポート内にのみ行われます。 

⑵ 引数 テーブル 


BX = 150 AH (DS = 60 H ) 


0，1 

2，3 

4, 5 

6, 7 

8 

9 

XI 

Y 1 

X 2 

Y 2 

領域色 

境界色 


BASIC のステートメントの 

VIEW ( X 1， Y 1)-( X 2, Y 2), く領域色〉，く境界色〉に相当する。 
ただし， X 1， Y 1, X 2， Y 2 は，2バイトの符号付整数値です。 
ただし，実際に表示が有効な領域は， 

0 6 3 9 
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0 SYS 19 9 ( 6 4 0 X 2 0 0 ) 
0 SYS 3 9 9 ( 6 4 0 X 4 0 0 ) 


です。 

領域色と境界色はカラーパレット番号の〇〜 7 を設定します。変更しない場合は， FFH としま 
す0 


4-6-6 GCOLOR 1 (INT A 3 H) 

⑴機 能 

バックグラウンドカラー，ボーダーカラー，フォアグラウンドカラーを 指定します。 

① バックグラウンドカラーとは，グラフィック画面の地の色のことで，この命令実行後 CLS 命 
令によって画面をクリアすると，この色によって画面がぬり変えられます。以後 PRESET 命令 
を指定なしで実行すると，この色が採用されます。 

② ボーダーカラーとは，グラフ LIO が制御可能なディスプレイ画面の外側の色のことです。た 
だし，専用高解像度ディスプレイ装置接続時は意味がありません。 

③ フォアグラウンド•カラーとは，図形描画においてパレット番号省略時に使用される色のこと 
です。 

⑵引数リスト 


BX = 150 AH ( DS =60 H ) 

A 


+ 0 

+ 1 

+ 2 

+ 3 

未使用 

ノぐソクグランド 
カラー 

ボーダーカラー 

フォアグランド 
カラー 


変更しない場合は， FFH を入れます。 

[ 1 ] COLOR ステートメントのくファンクションコード〉の設定を除いたものに相当する。ステー 
トメントの引数くファンクシヨンコード〉に対応する部分が未使用になっています。 
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4-6-7 GC0L0R2 (INT A4H) 

N 88 -BASIC (86) のステートメント 

C 0 L 0 R = (くパレット番号〉，くカラーコード〉) 
に相当します。 


引数リスト 

BX =150 AH ( DS =60 H ) 
4 


+ 0 

+ 1 

パレット番号 

カラーコード 


4-6-8 GCLS (INT A5H) 

N 88 -BASIC (86) のステートメント 
CLS 2 
に相当します。 

引数リストはありません。 

4-6-9 GPSET (INT A 6 H) 

N 88 -BASIC (86) のステートメント 

PSET ( X , Y ), C または PRESET ( X , Y ) に色 C の点をうつ，に相当します。 


引数リスト 


ただし， 

AH . 1 

2 


BX = 150 AH ( DS =60 H ; 

4 


+ 0,1 

+ 2, 3 

+ 4 

X 

Y 

ペレット 番号 


PSET 

PRESET 


前の色と同じにするときは FFH にする。 


PSET , PRESET の指定を AH レジスタで行います。 
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4-6-10 GLINE (INT A7H) 


N 88 -BASIC (86) のステートメント 

LINE ( XI ， YD - ( X 2, Y 2), くパレット No .〉， ^ , くラインスタイル〉 

に相当します。 


引数リスト 


BX = 150 AH (DS = 60 H ) 

4 


+ 0,1 

+ 2, 3 

+ 4，5 

+ 6,7 

+ 8 

+ 9 

+ AH 

+ BH 

+ CH 

ラインスタイル 

XI 

Y 1 

X 2 

Y 2 

パレット 

No . 

描画 

コード 

ラインスタイル 
スイッチ 

Lo 

Hi 


省略するときは， 
FFH を指定する。 


L | 〇……ラインスタイル指定なし 
t 1……ラインスタイル指定あり 
〇……直線指定 
1…… B 指定 
2…… BF 指定 


4-6-11 GCIRCLE (INT A 8 H) 

N 88 -BASIC (86) の CIRCLE ステートメントに相当します。 BASIC での引数の指定の仕方は， 
次のとおりです。 

CIRCLE ( X , Y ) ，く半径〉，くパレット No .〉， 〈開始角度〉，〈終了角度〉，く比率〉 

个 

中心点 

GCIRCLE コマンドの引数の指定の仕方は，少し異ります。 


引数リスト 

BX = 150 AH (DS = 60 H ) 
4 


+ 0,1 

+ 2，3 

+ 4, 5 

+ 6, 7 

+ 8 

+ 9 

+ A , B 

+ C，D 

+ E，F 

+ 10， 11 

CX 

CY 

RX 

RY 

パレット 

No . 

各フラグ 

SX 

S Y 

EX 

EY 


中心点 X 方向半径 Y 方向半径 開始点 終了点 

( FFH フォアグランドカラーで描画） 

一比率ではなく，‘ X 方向 • Y 方向半径で指定する。 
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BX +9 各フラグの説明（各ビットに意味がある） 

b 0 . 0 開始点指示が無 

1 開始点指示が有 

b x . 0 開始点線分指示が無 

1 開始点線分指示が有 

b 2 . 0 終了点指示が無 

1 終了点指示が有 

b 3 . 0 終了点線分指示が無 

1 終了点線分指示が有 

b 4 . 開始点 • 終了点一致時に， （ SX ， SY ) = ( EX ， EY ) 

0 . 全楕円 

1 . 一致点のみ描画 

b 5 〜 b 7 未使用 

開始点線分，終了点線分とは，それぞれ中心点と開始点，終了点を結ぶ線のことです。 
描画図形と各引数の対応図を示しま.す。 

①だ円の場合 



②おうぎ形（各ビットの bh b 3 を1にする）の場合 
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4-6 - 12 GPAINT1 (INT A9H) 

指定された境界色で囲まれた領域を，指定された色でペイントします。 N 88 -BASIC (86) の 


PAINT ( X ， Y )， く領域色〉，く境界色〉 
に相当します。 


引数リスト 


BX = 150 AH (DS = BOH ) 


4 


+ 0 ， 1 

+ 2，3 

+ 4 

+ 5 

+ 6，7 

+ 8, 9 

X 

Y 

領域色 

境界色 

作業領域 
最終オフセット 

作業領域 

TOP オフセット 


ぬりつぶし開始点 


t FFH にすると領域色と同じ色を境界色にする。 


FFH にするとフォグラ ウン ドカラーでぬりつぶす。 


作業領域は， BASIC テキストのあとのフリーエリアにとるとよいでしょう。 
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(6 AA , B ) システムスタック上限 



100バイト 

(6 A 8.9) 

この部分を PAINT 作業領域とする。 
(16 バイト以上必要） 

(6 A 6.7) 


作業領域不足の場合は， AH レジスタに， 07 H を入れて中断します。 
作業領域は必ずテキストセグメント （60 H ) になければなりません。 


4-6-13 GPAINT2 (INT AAH) 

指定した点と境界色で決定される領域を，指定のタイル • パターンで ぬりつぶします。 
N 88 -BASIC (86) の ステートメント 

PAINT ( X , Y ), くタイルストリング〉，〈境界色〉，く バックグラウンドスト リング〉 

t Nbb-BASIC (86) では 
意味がありません。 

無視します。 

に相当します。 


引数リスト 

BX = 150 AH (DS = 60 H ) 

A 


+ 0，1 

+ 2, 3 

+ 4 

+ 5 

+ 6，7 •; + 8，9 

+ AH 

+B 〜 +FH 

+ 10， 11 H 

+ 12， 13 H 

タイルパターン 

X 

Y 

未使用 


オフセット i セグメント 
アドレス：アドレス 

境界色 

未使用 

作業域 

END オフセット 

作業域 

TOP オフセット 


ぬりつぶし開始点 タイルパターン長 


作業域については， GPAINT 1 と同じです。 

BX + 5タイルパターン長は，タイルパターン格納領域の大きさをバイト単位で指定します。モノ 
クロの場合1〜 FFH , カラーの場合3〜 FFH です。 

タイルパターン自体は別のセグメントにあってもよく，オフセットアドレス （BX + 6,7) とセグ 
メントアドレス （BX + 8,9) で t 旨定します。 
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4-6-14 GGET (INT ABH) 

画面上のグラフィックパターンを読み込みます。 N 88 -BASIC (86) の 
GET@(X 1, YD - ( X 2， Y 2)， く配列〉 

に相当します。 

配列ではなく メモリー上へ読み込みます。 


引数リスト 


BX = 150 AH (DS = 60 H ) 

4 


+ 0，1 

+ 2，3 

+ 4, 5 

+ 6, 7 

+ 8, 9 

+ A , B 

+ C , D 

XI 

Y 1 

X 2 

Y 2 

格納領域 

格納領域の長さ 

(バイト） 

オフセット 

セグメント 


必要な格納領域の長さの計算方法は， 

カラーの場合 

{( X 2- X 1 + 8) ¥8} * ( Y 2- Y 1 + 1) *3 + 4 

モノクロの場合 

{( X 2- X 1 + 8) ¥8} * ( Y 2- Y 1 + D +4 
です0 


最初の4バイトに 



格納領域の形式 
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4-6-15 GPUT1 (INT ACH) 


GGET の逆を行います。 

N 88 -BASIC (86) の 

PUT @( X , Y ), 〈配列麵名〉，〈条件〉，〈フオア/ララーウンド〉，〈バックカクララーウンド〉 
に相当します。 

配列変数が GGET で用いた格納領域になります。 


引数リスト 

BX = 150 AH (DS = 60 H ) 

A 


+ 0 ， 1 

+ 2，3 

+ 4，5 

+ 6，7 

+ 8, 9 

+ A 

+ B 

+ C 

+ D 

X 

Y 

格納領域 

格納領域 
の長さ 

描画モード 
条件 

カラー SW 

フォア 

グラウンド 

カラー 

バック 

グラウンド 

カラー 

オフセット 
アドレス 

セグメント 

アドレス 


GGET の 格納領域と M じです。 〇 指定なし。 

' 1……モノクロで色をつけて衣/】ミ。 


格納されている画面が白黒の場合 ， BX + OBH のカラー SW を1にしますと，白 （1) のドット 
を BX + OCH のフォアグラウンドカラーで，黒 （0) のドットを BX + 0 DH のバックグラウンドカ 
ラーで表示することができます。 

BX + 0 AH 描画モードというのは，条件に対応するもので，次の表のように BASIC の条件と対 
応しています。 


描画 モード 

条件 

0 

PSET 

1 

PRESET 

2 

OR 

3 

AND 

4 

XOR 


4-6-16 GPUT2 (INT ADH) 

漢字を画面に表示するもので， 

PUT @( X ， Y ), KANJI (く漢字コ-ド》,〈餅〉，くフォ^^ラウンド>，くバック カ グラウンド〉 
に対応します。 
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引数リスト 

BX = 150 AH (DS = 60 H ) 

4 


+ 0，1 

+ 2，3 

+ 4，5 

+ 6 

+ 7 

+ 8 

+ 9 

X 

Y 

漢字コード 

描画モード 
条件 

カラー SW 

フォア 

グラウンド 

カラー 

バック 

グラウンド 

カラー 


GPUT 1 と M じ 


4-6-17 GROLL (INT AEH) 

N 88 -BASIC (86) のステートメント 

ROLL 

と同等のコマンドです。 

引数リスト 

BX = 150 AH (DS = 60 H ) 

A _ 

+ 0,1 

ドット数 

t 

上方向へ移動するドット数 
640 X 200 のとき C 8 H (200) 未満 
640 X 400 のとき 190 H ¢400)未満 
でなければならない。 

4-6-18 GPOINT (INT AFH) 

N 88 -BASIC (86) のステートメント 

PO I NT ( X , Y ) 

に相当します。 
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引数リスト 

BX = 150 AH (DS 二 60 H ) 


+ 0 ， 1 

+ 2,3 

X 

Y 


出力情報は， AL レジスタに入れられて戻ります。 


AL の値 

出力情報の意味 

FFH 

指定座標がアタティブ画面のビューポート以外である。 

〇〜 7 H 

画面モードがカラーの場合，指定座標の パレ ット番号を示す。 

〇〜 1 H 

画面モードがモノクロの場合，〇…黒，1…白を示す。 


4-6-19 GCOPY (INT CEH) 

現在 CRT 画面に表示されているディスプレイ画面上の指定領域におけるドット状態を指定の格 
納領域へ複写します。 

したがって， N 88 -BASIC (86) の COPY ステートメントとは全く異質のものであります。 

引数リストは， 4-6-1 〜 4-6-18 のように引数テーブルを RAM 上に設けるのではなく，次のように 
レジスタ渡しとなります。 

レジスタ 内容 

AX — 指定領域左上点 X 座標（ X ) 

BX — 指定領域左上点 Y 座標 （ Y ) 

CL — 指定領域 X 方向ドット数 （ dX ) 

CH — 指定領域 Y 方向ドット数 （ dY ) 

DI — 格納領域オフセットアドレス 
ES —格納領域セグメントアドレス 
次図を参照して下さい。 
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格納領域 


(X, Y) _ 

dX 1 


ただし， 

ox ， dX は8の倍数でなければなりません。 

〇 X + dX <2 8 OH ( 6 4 0 ) 

〇 640 X 200 のとき Y^C 7 H (19 9) 

Y + dY — lSC 7 H (1 9 9) 

〇 640 X 400 のとき YS 18 FH ( 3 9 9 ) 

Y + d Y -1 S 18 FH ( 3 9 9 ) 
OdX は 2 (82 H でもよい）， 4 (84 H )， 8 のいずれかです。 
格納のされ方は，画面合成を考慮に入れて，表示中のドットが， 
カラーの 場合 0以外 
モノクロの 場合白のと‘き 
格納するドット di を1とします。 


• dY = 2または 82H のとき 
(X, Y) 

• • • • 

d, d 3 


• • • • 

d2 d4 


• dY = 4 または 84H のとき 


參## • 

di d 5 



d 3 d 7 


• • • • 

山 cU 


〆」バイト〜/ I バイト、 


d V = 2 

000000 d 2 di 

000000山 b 3 

〜 


/ 1バイト〜 

/ 1バイト〜 


dY=82H 

0000 0d 2 0di 

00000 d 4 0d 3 



I バイト、ノ- Iバイト〜 


dY = 4 

0000 cUcbc^di 

0000 dsd7ded5 



1 バイト 

^ 1 バイト〜 


dY =84H 

OcUOdsOdaOdi 

OdsOdvOdgOds 

〜 
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• dY = 8 のとき 




山、 

d 2 

d 3 

d 4 

d 5 

d 6 

d 7 


dg 

dio 

dii 

di2 

di 3 

di 4 

di 5 


一 I バイト —--I ハ n 卜 --- 

dgd7d6d5d4d3d2d| di6 dis du di3 di2 dn dio dg 


ds 






4 - 7 3 D パッケージの紹介 

この章のしめく くりとして，マシン語で書いた 3 D パッケージを紹介しましょう。 

3 D パッケージというのは， 
r 3 Dimensional package 」 

の略で内容は，3次元座標で与えられたデータを，透視法で見た2次元図形のデータに変換するプ 
ログラムのパッケージです。 

プログラムは，大きく 3つに分けられます0 
①3次元図形データを2次元図形データに変換するプログラム。 

②①の出力の2次元図形データを画面にプロットするプログラム。 

③画面をクリアするプログラム。 

の3つです。 

マシン語レベルの CALL 命令で呼び出した場合は， RET 命令で戻ればよいですが， BASIC レべ 
ルの USR や CALL で呼び出した場合は， IRET 命令で戻らねばなりません。そのために，3つのエ 
ントリーアドレステーブルを用意しました0 
上記①②③のプログラムのエントリーは，次のようになっています。 



INT 呼び出し用 (BASIC) 

セグメント内コール 

CALL 用 

セグメント間コール 

CALLF 用 

① 

8 0 H 

A0H 

C 0H 

② 

8 3 H 

A3H 

C 3H 

③ 

8 6H 

A6H 

C 6H 
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プログラムは，全体でオフセットアドレス000 0 H 〜 OFFFH の約4 K バイトありますので， 
CLEAR 文でユーザーマシン語用エリアを確保して，次図®のようにして入力するか，又は BASIC 
のテキストのフリーエリアに次図⑧のように入力して下さい。 


CLEAR, m 
DEF SEG=m 





フリー 

エリア 


ただし，⑧の場合は， BASIC テキストのエンドポインタ （6 A 6,7) とスタックの下限のポインタ 
(6 A 8,9) の内容をみて，その間に入るようにしなければなりません。 

少なくとも， 

(6 A 8,9)—(6 A 6,7)21 0 0 0 H —3 D パッケージの大きさ 

をみたしていなければ，⑧の方法は使えません。また，⑧の方法は， PAINT 文と同時には使えませ 
ん〇 

3 D パッケージのワークエリアは， 3 D パッケージをロードしたセグメントアドレスのオフセット 
0 — 7 FH です。ユーザーが値をセットすべきワークエリアは，次のようになっています。 
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名 称 

オフセットアドレス 

意 味 

UPER 

0 0 0 0 H 

0のときプレーン1〜3 

1のときプレーン4〜6 をセレクトする。 

COLOR 

0 0 01 H 

クリアするブレーン No . 

1 . 1 (4) 

2 . 2 (5) 

4 . 3 (6) 

同時にクリアするときは，値を足したものにする。 

(例）プレーン1と3を同時にクリアするとき， UPER =0 にして， 

1+ 4 = 5を COLOR にセットする。 

X-WIDTH 

0 0 0 2，3 H 

画面の X 方向の幅の j を入れる。 

Y-WIDTH 

0 0 0 4， 5 H 

画面の Y 方向の幅の j を入れる。 


平行移動 1 


DX 1 

0 0 0 6， 7 H 

X 方向の平行移動量 

DY 1 

0 0 0 8， 9 H 

Y 方向の平行移動量 

DZ 1 

0 0 0 A , BH 

Z 方向の平行移動量 


平行移動2 


DX 2 

0 0 0 C , DH 

X 方向の平行移動量 

DY 2 

0 0 0 E , FH 

Y 方向の平行移動量 

DZ 2 

0 010, 11 H 

Z 方向の平行移動量 


回転移動 


PITCH 

0 012 H 

ピッチ方向の回転量 

BANK 

0 013 H 

バンク方向の回転量 

HEADING 

0 014 H 

ヘディング方向の回転量 


回転量は，符号付1バイトの整数である。 

-128 〜127 
を表わせるが， 

-180 〜179。 

に刘•応している。 

1=1.4。 

に対応している。 
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I BP 

0 0 15 ， 16 H 

I 叩 ut Buffer Pointer 入力となる 3 次元データの先頭オフセット 

アドレス 

0017 ， 18 H 

同じく，セグメントアドレス 

OBP 

0 0 19，1 AH 

Output Buffer Pointer 出力となる 2 次元データの先頭オフセッ 

トアドレス 

0 01 B, 1 CH 

同じく，セグメントアドレス 


回転移動変換が画面上でどう見えるか 

(矢印の向きは正の方向） 

ピッチ PITCH _ バンク BANK ヘッディング HEADING 


視点は，画面表面中央に固定されている。 

変換の順番は，下図の順番で行われます。 



3次元入カデータの形式は，先頭の1バイトに，出発点か中継点かを示すコード(上位4ビット） 
と色コード（下位4ビットの内3ビット）をおき，次の6バイトに，2バイトずつ X , Y , Z 座標値 
をおくという形式で入力します。データの終わりは，点属性•色コードに当たる部分に FFH を入れ 
て下さい0 
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出発点は5,中継点は6です。 

線は⑷本に色をつけることができます。に 


(X 2, Y 2, Z 2) 



(X 5, Y 5 ， Z 5) 


5 2 H 
XI 

Y 1 

Z 1 • 

6 2 H 
X 2 
Y 2 

Z 2 
6 7 H 
X 3 
Y 3 
Z 3 

5 4 H 
X 4 
Y 4 

Z 4 

6 4 H 
X 5 

Y 5 
Z 5 
FFH 


} 1バイト < - IBP 


2バイト 
2バイト 
2バイト 


赤 


上位，下位を逆に入れてはいけない。これは，サブロジック社やその他の 3 D パッケー 
ジのデータと互換性をもたせるためである。 

符号付2バイトの整数である。 

一32768〜32767を表わすことができる。 


白 ……7 


出発点 5 , 緑 ……4 


中継点 6 ， 緑 ……4 


データの終了点（エンドマーク） 


3次元入カデータの入っている先頭アドレスのオフセットとセグメントを IBP (0015, 16 H …… 
オフセット，0017,18 H ……セグメント）にセットして下さい。 

OBP には，出力2次元データの入いるべきバッファの先頭オフセットとセグメントを入れて下さ 

い。 

次に，セグメントと IBP • OBP バッファの設定例を示します。 
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CLEAR ，& H 1 D 0 0 
OK 

DEF SEG 二 & H 1 D 0 0 
OK 

BLOAD ''TEC 3 D . OB J " 

OK 

そして，以下のように設定します。 

IBP (0015，1 6) 二10 0 0 H 

(0 0 17, 1 8) 二 1 D 0 OH 
OBP (0 0 19,1 A )= 2 0 0 OH 

(0 01 B ,1 C ) 二 1 D 0 OH 

図で示すと次のように領域をとったことになります。 


セグメント値 

2 0 0 0 H ― 

RAM 未拡張時 
は空白地帯 

オフセツ 
- 3 0 0 0 H 

1 F 00 H — 

OB P ノ、ヘンファ 


-4 K バイト 

— 2 0 0 0 H 

1 E 00 H — 

IBP ノ、ヘンファ 


4 K バイト 

— 1 〇 〇 0 H 

1 D 00 H — 

3 D パッケージ 


-4 K バイト 

— 0 0 0 0 H 


したがって， RAM . を増設すれば， IBP バッファ， OBP バッファはそれぞれ64 K バイトまで設定す 
ることができます。 3 D から 2 D に変換するとデータ量が減りますから， IBP バッファを 64 K バイ 
卜にとっても OBP バッファは64 K バイト未満となるでしょう。 

実際の 3 D パッケージプログラムを次 ページ からにダンプリストとしてのせておきます。セグメ 
ントを前述の設定例のようにとって，モニタの E コマンドで入力してゆくとよいでしょう。入力し 
終わったら，一度ディスクに 

BSAVE '' TEC 3 D . OBJ '0，& H 1000 
と BSAVE しておきます。 

次に示すチェックサムプログラムをうち込み， RUN をし， 


SEGMENT ADDRESS=1D00 
START OFFSET ADDRESS=0 
END OFFSET ADDRESS=E70 
OUTPUT TO P)rmter or C)RT =C 
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SAVE"CHECKSUM" 

y CHECK SUM FOR PC-9800 

✓ 

CRLF$=CHR$(13)+CHR$(10) 

DEF FNHXB$(X)=RIGHT$("0 - +HEX$(X),2) 

DEF FNHXSM$(X)=RIGHT$('00'+HEX$(X),3) 

DEF FNHXU$(X)=RIGHT$( B 000 ， +HEX$(X),4) 

INPUT _ SEGMENT ADDRESS= \S6$ ： S6=VAL( - &H'+SG$) : DEF SE6=SG 

INPUT B START OFFSET ADDRESS=",S$:S=VAL('&H'+S$) 

INPUT * END OFFSET ADDRESS=",E$:E=VAL("&H'+E$) 

INPUT | OUTPUT TO P)rinter or C)RT =",0$ ： 0$=CHR$(ASC(0$) AND &HDF) 

IF 0$=_P_ THEN OPEN ， LPT1:* FOR OUTPUT AS #1 

IF 0$='C" THEN OPEN "SCRN: B FOR OUTPUT AS #1 

〆 

FOR I=S TO E 

IF CN MOD 256=0 THEN P$=CRLF$+CRLF$+ 

■ ADD : +0**^***+7+8***^^*+F:: SUM 1 
: GOSUB *PRN 

IF CN MOD 16 =0 THEN P$=CRLF$+FNHXU$(I)+" :•: GOSUB ^PRN 
IF CN MOD 16=8 THEN P$=" •: GOSUB *PRN 
DA=PEEK(I) ： P$=' "+FNHXB$(DA):GOSUB ヰ PRN 
SUM=SUM+DA 

IF CN MOD 16=15 THEN P$=" J ： '+FNHXSM$(SUM):GOSUB *PRN:SUM=0 
CN=CN+1：NEXT 
END 

〆 

*PRN 

PRINT #1,P $； 

RETURN 


と入力して，チヱックサムが合っているか確認して下さい。もし合ってないときは，データが違っ 
ているのですから，もう一度その行を調べ訂正しチヱックサムが一致するまで，これをくり返して 
下さい。最後の 

OUT PUT TO P)rinter or C ) RT = 

に対して， P と答えるとプリンターに表示されます。 

チェックサムプログラム 


,000000000000 00000 00 0000 00000 
01234567890123456 78901234567 
011111111112222222 22233333333 
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3 D パッケージ•ダンプリスト（チェックサム付) 


M8A00A 20010901000 
UE6000D 007020 E000 
S 0000000040403000 


F0000A 00000000000 

+0000000000000000 

*0000000000000000 
0000000000000000 

关 0000000000000000 
0000000000000000 

关 0D 00000000000000 
0 10 0 0 0 0 000000000 

*0000000000000000 
0000000000000000 

关 0000000000000000 
0200000000000000 

*0000000000000000 
0000000000000000 

OO0D 00000000000000 

+0100000000000000 


70000000070 F 07000 
+ 00000000 A 0807000 

兴 0000000090909000 
01000000 E0E0E000 

关 0000040000000000 

00000N00000000000 

关 4000000020 A 02000 

6000000090706000 

关 0000040090909000 
00000600 E0E0E000 

* D 000000000000000 
7000000000000000 

关 70000 A00D050D000 
0000000070604000 

00000000090909000 
+ 00000000 E0E0E000 


D 0000000000000000 
D 0123456789 ABCDEF 
A 0000000000000000 
0000000000000000 


MB1C1884B6FB6FB6F 
U5452EE498F98F98F 
S 5546698788788788 


F3FB36BAA3AA3AA3A 
+ CCCCF8DDEDDEDDED 

关 F0FF02B 31 B31B 31 B 
1C118520D20D20D2 

1- 3 D C 5 B 9 311311311 
03000 DC04E04E04E 

^ 2D4A 973391391391 
30087 F374D74D74D 

矢 8588F03AA3AA3AA3 
E1EEF 8 CDDEDDEDDE 

关 F8FF26BB 31 B31B 31 
1E112FD20D20D20D 

^ -t -h p- E 6 0 -/f 1 〇〇 1IX 001-1- oo1 

0100 F8FE04E04E04 

8EEEE 252139139139 
+ 1011300 D74D7d-D7d- 


7FB3FB 993 AA3AA3AA 

+ CCCCC77EDDEDDEDD 

关 0FF0FF61B31B31B3 
C11C1FFD20D20D20 

* 31D3C 22113113113 
30030224 E04E04E0 

*1ACC2BA 913913913 
02008 C54D74D74D7 

关 B 883870 A3AA3AA3A 
3EE9E80DEDDEDDED 

关 8FF8FB 831 B31B31B 
E11E1D 00020 D20D2 

* FEEFE 78311311311 
10010 FE04E04E04E 

0EEEEE 01391391391 

+ 011018 D74D74D74D 


D 0000000000000000 
D 0123456789 ABCDEF 

Ap 1-1-111-11-11-11-1-1-11-1- 
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 


MB 667784 1B2F176CA 
u 98647 E86C37B209F 
s 7887455599 A 68 c 89 


39300 FE 213400 E9 
EEC 00105 D0E0D08 

* 316093 EB2490F9B2 
0D8E1208DE5D1E8D 

关 31F 6639010291701 
04080 A80DDDEAF0D 

关 39B74F 0142170014 
7480 CF02EDDF003E 

关 AABB065E 0140 D760 
DD080C20DDE0121D 

^ B30B 3839240 1E192 
20204 EA8DED20A8D 

关 133060 F 01021 B 211 
E0C200F0DDDA8DDD 

81313 c 49749102 1B4 

+ D78C81B2EED05D2E 


73AB1 00830743 A490 

+ EDD80AEADFE2DE5D 

关 1B3B100F900EB 029 
D20D400FE0D08DDE 

* 1183372 C7FAB2217 
4ED0A41AF1E8DDDF 

* 91B 8060801701140 
4D8D00AE0AF0DDE0 

* A38B5C 00700 F4405 
DE 9818002002 EED2 

* 313860 D31D1 60021 
0DC90011A121DDDA 

* 31B045E00E1 92910 
04C4C40A00A8DED0 

03974 C3903B 21174 D 

+ 7480FA8028DDDFE1 


D 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
D 0123456789 ABCDEF 
A 2222222222222222 
0000000000000000 
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M08DD86EB2BCE89D5 
U0A2BAD 031607 C0DC 
376978 B7AAA 765565 


MFBE 86980 B52E9839 
u 73149 C4FD4457CF9 
8364444533 AA9788A 


M3A 34389223 FF1705 
UDC7E1F3E77ECFCC0 
S887A 499655555787 


F 2704910 E19200F09 
+ DF0EED00A8D001C8 

关 10F074DB 21151 EE0 
D 01 DFE18DDD 40080 

^ 471900 E2134E2959 
E2AE0D05D0E3A 892 

关 0107 FAB 249046006 
DA0F1E8DE5DC40C1 

9070170102904 DC9 
E030AF0DDDE 00188 

关 756700 B 4217 1A690 
F 212003 EDDF 48100 

^ 0E 91316014066943 
008A 221 DDE 032872 

81B20E1 92405 B0006 
+ 28D00A8DED28C061 


F8D1109B 601214901 

+ E1200E840A5DEE0D 

* 0EE 79006 F 01407 D3 
0012200420 DEDF20 

* DBB 81194 1B3090E9 
2008 EA220A20DE 005 

* EA00A33B0E9277B2 
1A00AAA8005DF38D 

* 90F 710009 B 210121 
8012000028 DD0A5D 

关 01EE1D6BE 2141014 
0001020205 DE30DE 

* 70BB8163B2401B30 
2A88EA0A8DEDA20D 

8E0A 0003001090 E92 

+ 1CA 000000 DDE005D 


F427AB14EE 0020198 

+EDF5FDECC 88780 BF 

* 010984 B00F 303522 
DD05FEE88F0807C0 

* 24F 98003302 F29A4 
DE3DED 00087 F7F07 

* 101332222900020 B 
DDA0CD077D888CCF 

* 490901 E113F9FA2B 
EE050D0000FDF0D8 

* 07DA04B1D00B064E 
DF2D1E 8000828 C0A 

*90EBE0B 887909 A12 
E0081DFEE2D0D8BF 

879B239E14EB 73367 

+ F38D0ED 001220 CC0 


7101 DB 2110210 E 9 c 9 

+ A0D18DDDDDA0S838 

关 054E 21 B4CN10F 5820 
03E05D2EED039EE0 

^ 560B 249074360 IBB 
21D8DE5DFE21C1E6 

*E 920102900 E 9 c 508 
08D0DDDE 0008870 E 

^ B 2194217 F9B 20013 
8DD3EDDF1E8D052C 

^ 0143014017013 CEA 
0DEADDE0AF0D 43 1 A 

关 34000240100 D4E 090 
3EDDDED2003E2F8C 

0609710213760 B402 

+1DEFDDDA 22 ID 8203 


79E137F08D4279B21 

+ 88022 1E02EDF28DD 

关 05FEE 3663010 E 214 
09301 A80ADD005DE 

关 B08BB 063024 BB240 
2CE 880400 DE38DED 

关 EC0A0B60A1 012109 
080A024E0DDA5DDE 

X 9911514664901427 
83202 A080EE0DEDF 

* 03E9E0B6307D3010 
071100840 DF20DD0 

关 51 B8BDFNO090E924D 
208E 8 1F4EE005DE3 

0EE00A 324675 B 2101 

+ 0500AA608F38DDDA 


7 

+ 


01210786 EB0E01AE 
0A5D0FEBC 8010080 

关 3014 E 332007 B 7466 
30DE0CC 0802827 D0 

*1B30EB2233E0E26C 
A20D08C 70210 1C80 

关 0E 923 1A02EB5B22F 
005D 05807082820 B 

* 9B 21001 A1B1E443F 
28DD00DF 08000 C7D 

^E214c 438722 BAA6B 
05DE000E0DB8C8D8 

* B2406E 96822208 A0 
8DED105FE 3008030 

021093 B 22282 A3A31 

+ 5DDE08D 3007 C0CC2 


D 0000000000000000 
D 0123456789 ABCDEF 
A 3333333333333333 
0000000000000000 


D 0000000000000000 
D 0123456789 ABCDEF 
A 4444444444444444 
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 


D 0000000000000000 
D 0123456789 ABCDEF 
A 5555555555555555 
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 












ADD 

0600 

0610 

0620 

0630 

0640 

0650 

0660 

0670 

0680 

0690 

06A0 

06B0 

06C0 

06D0 

06E0 

06F0 

ADD 

0700 

0710 

0720 

0730 

0740 

0750 

0760 

0770 

0780 

0790 

07A0 

07B0 

07C0 

07D0 

07E0 

07F0 

ADD 

0800 

0810 

0820 

0830 

0840 

0850 

0860 

0870 

0880 

0890 

08A0 

08B0 

08C0 

08D0 

08E0 

08F0 
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+0 关关关 关关关 +7 

C3 BB 2D 06 03 D9 03 D9 
4A 1A 69 49 2916 25 24 
0F 0E 0D 0B 0A 09 08 07 
08 74 08 D3 08 ED 08 6C 
09 8F 09 72 09 94 0915 
08 94 09 3F 09 07 09 23 
08 34 08 B1 08 63 08 05 
0E ID 00 8B IE 21 00 03 
00 8B IE 21 00 2B D9 80 
IE 21 00 2B D9 80 FF 80 
00 03 D9 80 FF 80 C3 A1 
ID 00 A3 23 00 A1IF 00 
A3 25 00 A121 00 8B IE 
00 C3 73 03 E8 D0 FF A1 
A3 4B 00 8B 0E 27 00 89 
C3 5B 5B 5B 53 B912 04 


FA88F59BDB1E 07013 

+ 51c 497818210200 c 

^ B 888889 E0E9F3540 
42000000018 1A 27 c 

^ D8CAF74BFB0E0192 
24AF7B 9818010 AD2 

关 E 8189893 E 03910 BB 
1500000 c 00282035 

* 18207 B40BFE0E931 
E60E 4998811014 C0 

* F 848989 F3EB 59304 
F 700000 FC0828A07 

关 F 250 1D400B0E00D9 
01093 c 988801004 D 

8B 4699989 F3DB73EB 

+ 8100000 DFC1 82203 


F103EB91E 530000 B0 

+ c 0502821250080 E0 

关 8FF530E7EFBFFD0F 
E1F7500F1F41F401 

^ FE193B9FB1EE0E1E 
F1DDC48F 86018021 

关 FB8B030DF8B999E7 
68E30A08FE88D80F 

* 800918 F8503EB09F 
E 00525 IE 4050208 F 

关 3B1FE0308DF5390B 
C42F00A0E1F 75408 

* 9EE 59983 FE593ED8 
D01C 8452 F15DC11E 

83BB80E0E1B8B09E0 

+ 088E 010108 E 30810 


7BF00F9D 78009 1B95 

十 DF 00181 FE 0052582 

关 14 DDEEE 0391 FE0BE 
DD 411010 C42F0051 

* 58EE929D0EE99B07 
FE 0187810014840 F 

关 00BBBB3E3BB80EF0 
808855 B1288E 0110 

关 F 33 000 B7EF00D9EF 
F 25008 EF1F 001811 

矢 0EF9DF0578DFEF9E 
81F41F0AF 5411081 

关 CNBDEE0DB08EE9227 
D8D0184E0E0187BF 

0BF8B99E0D0BBBBB3 

+ 2FE88D 00108855 EA 


F0282F028EE93E3ED 

+ 85E7F97EFCFCFCFF 

* F 83078 EF78E1797D 
FE083EFFFEF0BF97 

^ 032F83A78E428E88 
807FE02EEFC7EFEE 

关 B2E 03289398 D353E 
47F807EE0EEFC9CF 

^ 0E0B2E3E28E 09894 
0F547FCF7EFCFEFF 

*1380ED17EFF8E3E8 
25E0F30FFF5EF0FE 

关 E8F1 0828078 F 0283 
1EF24E7E0EEF478C 

8B37E8FE 389378 D89 

+ 8CC1EFFCEE03EFEF 


7F18B3A293E28E63E 

+ F0E8C12FCF7EF90F 

关 F23E188F13DFB 823 
77CF0EEF07FFAE71 

* 8E1423E 028678 ED8 
EF0D7CF17EDEEFFE 

* 3728E158E 3893193 
C67EF0AEFCEE0B80 

关 08E 3428 F493F 2882 
0EFC57EF1FCF7EE7 

关 53598 E3D8F1DDFFD 
2C7FEFC7EF03FFFF 

* E18E3C98EE28C7EA 
10EFC1FEF57EAE08 

072F918F318D 38988 

+ F7FD0EF0FEFCEEEE 


M345AD 97937 F7C6EF 
UD8E97DD4D8C3E6D7 
S 6315333555533646 


M 2224 E2F3A23E0D57 
U43D4D788F82AFF2B 
SB 676364766555356 


M 7113 D96E7EBF6DF5 
U7ADDE40A5A4A187D 
S78A989BCADBBCCBB 











关关 +F 

72 01 C3 
C3 E8 52 
DC FD F9 
F9 C3 E8 
F9 C3 E8 
72 03 E8 
18 FE E9 
E8 0B FD 
F9 C3 E8 
D9 80 FF 
80 72 01 
A127 00 
FD 53 8B 
21 00 8B 
00 5B 89 
43 22 C0 


+0 兴关关 关关关 +7 +8 失 

72 03 E8 06 FE F9 C3 E8 7D FE 
E8 60 FE F9 C3 E8 D9 FE E8 54 
FE F9 C3 E8 61 FE E8 54 FD 72 
C3 E8 BD FE E8 46 FD 72 01 C3 
C9 FD E8 2E FE F9 C3 E8 3D FE 
9F FE A0 22 00 22 C0 79 01 C3 
A9 FD E8 0A FD 72 03 E8 09 FE 
E0 FF E8 96 FD A0 22 00 22 C0 
72 03 E8 02 FE E811 FD 72 03 
El FD EB El8B 0E 27 00 8B IE 
80 73 03 E8 01 FD A127 00 48 
C3 A123 00 A3 49 00 A1 25 00 
A3 4D 00 8B 0E ID 00 8B IE 49 
0E IF 00 8B IE 4B 00 E8 26 FD 
IE 4D 00 E81A FD 4B 7512 43 
IE IF 00 5B 89IE ID 00 E9 75 


^ D18DED83EBC02E17 
F0EFFFECF2F 0302 c 

* 223E 4031400 B8BEA 
67CCA2C 06084 E818 

^ 8D1 888998183039 B 
EF0EEEF7E24A058F 


F03E72ECDE419D550 

+ 0A0FCDA780F4EA21 

^ DB58D3B 510049 1B6 
1EFEDDCCCCCCCDDE 

关 30B 08585 B 31 DA 402 
A 0971092 E1BB19EA 

* 896AF5C 610039094 
54FEDDCCCCCCCDDE 

* 03AC42B51CBA0909 
0A2E738D 527358 A3 

X F88B06D 620038 F83 
15FEEDCCCCCCCCDE 

* 30AB466E1EE1E664 
A0B6D688C44C886D 

88B9D17E 720027 E71 

+ 54FEEDCCCCCCCCDE 


703AE9090ABC15B24 

+ 0A4E3A 853725 D837 

*18BE38F 830026 D60 
25FEEDCCCCCCCCDE 

* E0C3204AD13B 5858 
10D7AE91BB1E2901 

wx 9DC 0490930016 C5F 
84FFEDDCCCCCCCDD 

* EEDA055D9-14EDCE2 
016F12AE4F087ADC 

* B9E16B1 940015 B3D 
E8FFEDDCCCCCCCDD 

* 21032 1E9FA0AF9E1- 
0B0887BCD303DCB7 

08B037C2A 41014 A2C 

+ 7E0FEDDCCCCCCCDD 


D 0 0 0 0 0 00000000000 
D 0123456789 ABCDEF 
AAAAAAAAAAAAAAAAA 
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 


FAD18D1 321 BEN02AAF 

+F6F 032587 F0B15DE 

*1EA72C4AEFFB6E49 
FF 01223333333221 

关 3C4F7A7A4CE 21 OBFD 
7D68EF6D1E44E615 

关 0C950A39EFFC6F6B 
FF 01223333333221 

*EA53BD4AE345F6F6 

E4D18C72AD8CA75C 

*EB74F929DFFC707C 
EF 01123333333321 

关 BA54B 991 E11E199B 
6B 4929773 BB 37792 

80962 E818DFFD818E 

+ EF 01123333333321 


7CA516F6F543EA4DB 

+E2B1C57AC8DA27C8 

X B841C707CFFD929F 
EF 01123333333321 

* 0B3CDFB52EC4A7A7 
7928516 E44E1D6FE 

关 A63FB6F6CFFE93A0 
EF 00122333333322 

关 7 E 2 5 F AA26EB1 231 D 
F090ED51B0F 78523 

关 85 1E94E6BFFEA4C2 
EF 00122333333322 

* 230CDE1 6050506 IE 
880778432 C0C 2348 

0730 C83D5BE0EB5D3 

+ EF 00122333433322 


D 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
0123456789 ABCDEF 
BBBBBBBBBBBBBBBB 
0000000000000000 


D 0000000000000000 
D 0123456789 ABCDEF 
A 9999999999999999 
0000000000000000 


MDAAE70CB673FD4BB 
UF 621 EE92BBAE 8 c 22 
S9BCCC7A 997645456 


MD8180E91E9E61C14 

U6AF0A446BEA17498 

S469DAABAA88AABAA 


MB 718027 F274AF4FC 
UF60E5AA8304D7A56 
SCB 42554557655455 













关关关+"7 

15 8F 1413 
09 64 07 D5 
F9 DC AF 3D 
AF 3D 92 85 
00 A0 01 00 
73 04 81 C7 
30 01 E8 59 
00 00 D0 E8 
E8 D1 00 E8 
BF 00 C0 A0 
00 E8 8F 00 
A0 24 02 75 
58 E6 A0 C3 
DC FF B0 FF 
C3 8B IE 4F 
3B DA 74 03 


关 关 + F 7 

8C 0E 05 
23 0192 
DC 7D 81 
92 00 E8 
00 40 A0 
E8 D7 00 
02 74 20 
IF E8 95 
A0 01 00 
04 81 C7 
00 E811 
50 E4 A0 
E8 ED FF 
FF C3 B0 
A151 00 
74 FB 72 


+ 0 关 

18 7D 
0C 7C 
7C 80 
6F D2 
9D 00 
00 00 
E8 F5 
BF 00 
00 E8 
A8 04 
40 IF 
01 C3 
24 02 
C3 B0 
20 E8 
8B 0E 


ADD 

0C00 

0C10 

0C20 

0C30 

0C40 

0C50 

0C60 

0C70 

0C80 

0C90 

0CA0 

0CB0 

0CC0 

0CD0 

0CE0 

0CF0 

ADD 

0D00 

0D10 

0D20 

0D30 

0D40 

0D50 

0D60 

0D70 

0D80 

0D90 

0DA0 

0DB0 

0DC0 

0DD0 

0DE0 

0DF0 


次に， UFO (空飛ぶ円盤）を描くサンプルプログラムを示しますので参考にして下さい。 
なお， PC -9801 F では最初に SCREEN 0，0を実行しておいて下さい。 


* 812D 08800 D14A8F0 
0FDDAEEA017EFEF0 

^ 7A 778000348058 E5 
1060ED08B7E577C5 


* F3C8F 08013834 F01 
00FEB0A407ECCD0C 

*153D 09075882 A83B 
1BCD2B0C3EEA8E53 

*14CA 48118006 FF63 
10307 E08ED0EFF1C 

* 45431F0410D822B8 
948C01A000A5FE81 

8262 C 8013 C08A 8803 
+ 1093A 40700 EFEE07 


FA0B 2220 
+ B0AA330 

关 1337 CC0 
1 0 F 0 A A 0 

关 4804330 
7 E C 2 4 4 0 

* 4333330 
0 0 3 C 4 4 0 

* 88F1770 
A E 1 0 0 0 0 

* 0205990 
0 c 4 7 8 8 0 

关 119000 D 

0 8 B c c c c 

804FA33B 
+ A0F000E 


7033C44D 
+ 073AEEF 

关 B 820224 
1 E c 0 3 3 D 

^ 80E9CC8 
E D 81 A A E 

* 3066033 
0 0 0 3 0 4 4 

^ 80C4F33 
E 0 F c 4 4 4 

关 203 CB77 
c A c F B 0 0 

关 1803099 

8 B c c 0 8 8 

04037144 
+ 00300 EE 


D 0000000 
D 0123456 
AEEEEEEE 
0 0 0 0 0 0 0 


F5B8C0BA 038778 A03 

+58E7C2C0C0105B07 

*E 01830 B7A 4880438 
0CDE0035C0EE513E 

* 938303467020 A480 
80ECC 51080 CCF7ED 

关 00 1A 368637 B 34130 
0CD8017C 05207000 

*138F0B 6300014880 
50EF081C0ACC0AE0 

关 3016 F 0417 F3B 8020 
ACD7007D5F08A0CA 

关 03085 F 8767 IF 0110 
000E24C801CFA08B 

830F901B068BE4040 

+ 50440 A20CE80EA00 


76110 F3008CF83A3A 

+ 15AB4C0004FECF7B 

^ 91831F 578000 E584 
8ADCAF557B2CF7E1 

* 0B3FF6E6A383B804 
0E0DF600CCE0E0D7 

关 FB0378B6B 2228802 
4EC07E8C30CCEA00 

关 EA 38800890 BBC 008 
1D0DEC00D 082 NOA0A 

关 970 3 731877 FI 0400 
88C0C057F5FCBEA0 

关 1338A01A36AB 38001 
9C0E8CA0C018C5A0 

09081F 304168 FF000 

+ F0DDF0D70CEFF50A 


M 5910267283 D41F65 M 2040 
uF8E7A3130D8A357A U5C54 
8249857676678 BD66 s 5 7 9 A 


85EF350E8708 
5AB55E5EBDC0 
76557598 A 666 


Ml 03543 B 
UCAE 5876 
85686566 


132 













SAVE_UFO.PAC" 

CLS 

CLEAR ,&H1D00:DEF SEG=&H1D00:BLOAD "TEC3D.0BJ" 

GOSUB ^INITIALIZE 
'SET UFO 3D DATA 
DIM SN(24),CN(24) 

PRINT "JUST UAIT A MOMENT. NOU URITING UFO DATA. M 
FOR 1=0 TO 24 
SN(I)=SIN(2^3.14159/24*1) 

CN(I)=C0S(2^3.14159/24^1) 

NEXT 

IB=&H1000 : ' INPUT BUFffER POINTER TOP 
RESTORE *UFO.DATA 
^SET.UFO 

READ R,Y*DY : ' RADIUS AXIS.Y LINE.COLOR 
IF R=255 THEN *UFCKPART2 
START=&H50： / START POINT CODE 
FOR 1=0 TO 24:CL=C,L+1 
POKE IB,START+(CL MOD 6+l):IB=IB+l 
Q=R*CN(I):GOSUB *UORD:POKE IB,H:POKE IB+1,L:IB=IB+2 
Q=Y : GOSUB *WORD:POKE IB,H：POKE IB+1♦L:IB=IB+2 

Q=R^SN(I)jGOSUB *UORD:POKE IB,H:POKE IB+1•L:IB=IB+2 
START=&H60：^CONNECT POINT CODE 
NEXT 

GOTO ヰ SET.UFO 

^UFO.DATA:DATA 100,32,7 ,92,0,7 ,35,-20,5 

DATA 35, -40，2 ,28,-48,2 ,255,255,255 

*UF0.PART2 
FOR J=0 TO 24 

RESTORE *UFO•DATA:START=&H50: CL=CL+1 
*UF0.PART2.L00P 

READ R,Y,DY:IF R=255 THEN ^UFO.NEXT 
POKE IB,START+(CL MOD 6+l):IB=IB+l 
Q=P*SN( J):GOSlJB ^WORD:POKE IB,H:POKE IB+1• L : IB=IB+2 
Q=Y : GOSUB ^WORDjPOKE IB,H:POKE IB+1,L:IB=IB+2 

Q=R^CN(J):GOSUB *WORD:POKE IB,H:POKE IB+1•L:IB=IB+2 
START=&H60 

GOTO *UF0.PART2.L00P 
关 UFO.NEXT 
NEXT 

POKE IB,255:IB=IB+1 

FOR 1=355 TO 0 STEP -5 
Z1=I:B0=I-180:GOSUB ^CONVERT 
FOR K=1 TO 3 

CL=CCL 

FOR J=1 TO 7:CL=CL+1 
IF CL=8 THEN CL=1 
COLOR=(J.CL) 

NEXT:CCL=CCL+1: IF CC ： L=8 THEN CCL=1 
NEXT 
NEXT 
END 

* SAVE M CTRL3D,PAC",A 
Par Bmeter 
^WORD 

IF O<0 THEN 0=65535'+Q 


0 


00000000000000 

01234567890123 

0000000000111111111122222222223333333333444444444455555555556 

<4 ~ - 〆 一 /I ― - ii 1-^~ - /4 ―- ia la T — I X — | ^ — i H ― I r—f I T — I r ― < T — I r — I T — t T —- ^ — _ T ―- IX ^ — - 1J ii 1-^ — - -1T ― - J —- 1-^ — -IX 1* « —- 1- ^ — -14— I - < T —- ix T ―I 4—- 1- IX ix A ~_ T~i 


00 0 000000000000000000000000000000000000 0 0 00000 
5 6 7 8 9 0 12 3 4 5 6 7 8 9 0 12 3 4 5 6 7 8 9 0 12 3 4 5 6「.- 8 9 0 12 3 4 5 6 7 8 9 0 



^CONVERT 
O=X0 
Q=X1 
Q=Y0 
Q=Y1 
Q=20 
Q=Z1 
Q=P0 
O=B0 
Q=H0 


GOSUB *WORD 
GOSUB ^UORD 
GOSUB *UORD 
GOSUB *UORD 


GOSUB ^UORD 
GOSUB MJORD 
GOSUB WANGLE 
GOSUB *ANGLE 
GOSUB 关 ANGLE 
IF SCRN=0 THEN POKE 0 
ELSE POKE 0 
POKE 1.7:A=USR2(0) : 
RETURN 


POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
,2:SCREEN 
,1:SCREEN 
A=USR(0) 


6,L:P0KE 
12,L:POKE 
9,L:POKE 
14,L:POKE 
11,L:POKE 
16*L:P0KE 
18,0 : 
19,0 : 
20,0 


8.Hi ， 
13,H: / 
10, H : ， 
15,H: / 
12,H :' 
17,H : ， 
PITCH 
: y BANK 
:' HEADING 
,,2 ： SCRN=1 
♦,1:SCRN=0 
A=USR1(0) 


X 

XI 
Y 

Y1 

Z 

Z1 


Transfer data into input buffer 
^TR*DATA 

IB=&H1000 : / INPUT BUFFER LOCATION 
*TR•DATA•LOOP 
READ C0 

POKE IBX0: IB=IB+1 
IF C0=255 THEN RETURN 
FOR 1=1 TO 3 
READ Q : GOSUB *UORD 
POKE IB,H:IB=IB+1 

POKE IB,L:IB=IB+1 , 

NEXT I 

GOTO *TR.DATA.LOOP 
Initialize 3D-2D converter 
矢 INITIALIZE 

DEF USR0=&H 80 : REM 3D->2D 
DEF USR1=&H83 : REM DISPLAY CRT 
DEF USR2=&H86 : REM CLEAR CRT 

POKE &H15,0 : SET IBP (Input Buffer Pointer)=&H1000 

POKE &H16,&H10 

POKE &H17.0 : POKE &H18,&H1D : ^ SEGMENT ADDRESS=&H1D00 
POKE &H19，0 : / SET OBP (Output Buffer Pointer )=&H2000 
POKE &H1A.&H20 

POKE &H1B,0 : POKE &H1C.&H1D : x SEGMENT ADDRESS=&H1D00 
RETURN 


H 二； INT(Q/256) : L こ Q-H*256 
RETURN 


1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 


Q 

) 5 
8 2 
2 = 

1 Q 

0 N 
8 E 
1 H 

0 / 

(0 N 
E T く R 
L N Q u 
G I T 
N = F E 
A Q I R 

矢 


0 0 .u 0 0 0 0 0 o 0 0 0 0 0 Q Q 0 0 0 0 0 0 G 0 0 0 0 0 0 0 0 0 0 
0 Vi- 2 3 4 567- CO 9 0 12 3 4 5 6 7 8 9 0 12 3 d 5 6 7 8 9 0 12 
8 s s 8 8 8 8 00 8 00 9 9 9 9 9 9 9 9 _y 9 0 0 0 0 0 0 0 0 0 0 111 

1-1* r — - IX 1-IX ■>： —- MX IX H —- IX 1* IX IX < — I t-h ^HoJ?J?i OJ 04 CZ- 0 ム ¢N1 Cn! OJC., 4 
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フアンクシヨンキーの構造 
フアンクシヨンキーの初期化 
ファンクシヨンキーの退避 • 復活 


第5章キー入力 

5-1 キー入カバッファ 

5-1-1 Bios キー入カバッファ 
5-1-2 インタプリタのキー入カバッファ 

5-2 フアン クシ ヨンキー 


5-3キースキヤン方式 
5-4 キー入力のセンス 
5-5 キー入力方法•キーセンス比較表 


- _ - 
2 2 2 
I - I 

5 5 5 





第 5 章キー入力 

5-1キー入カバッファ 

5-1-1 BIOS のキー入カバッファ 

キー入カバッファはキュー入力形式をとっています。1文字を2バイトとして記憶し，キューの 
長さは32バイトです。 

キュー関係はセグメント 0000 H (システム 共通域）にあります。 

• キューアドレス： 502 H 〜 521 H 
• キュー ハへ ソファ. ボイ ン タ： 524 H ，525 H 
(ヘッド•ポインタ HEAD POINTER ) 

•キューバッファ最終アドレス+1: 526 H ，527 H 
(テイル•ポインタ TAIL POINTER ) 

• キュー バッファ 文字数： 528 H 
(バッファ • カウンタ） 

• キーボード入力時におけるエラーリトライ数： 529 H 

次にこの概念図（図 5-1) を示しておきます。 



バッファカウンタ 


図 5-1 キー入カバッファ概念図 
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個々の文字コードは，2バイトで成っています。下位1バイトは，マニュアルに記載されている 
キャラクタ•コード表のものと同じですが，上位1バイトは，図 5-2 のように，キーボードの左上す 


みの I ESC I キーから順番につけられた，キーコードとなっています。 


f • 6 

f • 7 

f • 8 

f • 9 

f -10 

67 

68 

69 

6 A 

6 B 


f • 1 

f -2 

f • 3 

f -4 

f • 5. 

62 

63 

64 

65 

66 


STOP 

COPY 

60 

61 


ROLL 

ROLL 

UP 

DOWN 

36 

37 


ESC 

00 


2 

3 

4 

5 

6 

7 

02 

03 

04 

05 

06 

07 


08 


09 


0»A 


OB 


BS 

0 E 


TAB 

OF 


Q 

W 

E 

R 

T 

Y 

U 

1 

0 

P 

@ 

匚 

10 

II 

12 

13 

14 

15 

16 

17 

18 

19 

IA 

IB 


CTRL 

74 


CAPS 

A 

S 

D 

F 

G 

H 

J 

K 

し 

； 


コ 

71 

ID 

IE 

IF 

20 

21 

22 

23 

24 

25 

26 

27 

28 


1 C 


SHIFT 

70 


Z 

X 

C 

y 

B 

N 

M 

< 

> 

? 

— 

29 

2 A 

2 B 

2 C 

2 D 

2 E 

2 F 

30 

31 

32 

33 


SHIFT 

70 


カナ 

72 


GRAPH 

73 


34 


XFER 

35 


INS 

DEI _ 

38 

39 


f 

3 A 

^ — 

3 B 

― ► 

3 C 

| 3 D 


キー コード 


HOME 

CLR 

3 E 

HELP 

3 F 

40 

/ 

41 

7 

8 

9 

本 

42 

43 

44 

45 

4 

5 

6 

+ 

46 

47 

48 

49 

1 

2 

3 

= 

4 A 

4 B 

4 C 

4 D 

0 

9 

• 


4 E 

4 F 

50 

1 C 


テンキー 

囪 5-2 キーボードとキーコード 


実際に，キューをのぞいてみましよう。 
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MON 

h]C0 ^ -システム共通域のセグメントにする 

h]D 502,529 

0502 44 IF 35 47 30 4 E 32 4 B 2C 4 F 35 47 32 4 B 39 44 0 口 0|Gli<iD 

0512 0D 1C 00 00 00 00 00 00 00 00 00 0 卩 00 00 00 00 

0522 26 0B 14 05 14 05 00 00 —キー入カエラーリトライ数 & 

1— ヘッドしテイル t バッファ 

ポインタポインタポインタ 


バッファの先頭から，2バイトおきにみると， 

D 502,529 c R 
という文字がみえますね。 

へッドポインタニテイルポインタ= 514 H ， バッファカウンタ （528)=0 ですから，これらの文字はす 
でに取り出されたことになります。このダンプをみるために 

D 502,529 c R . 

としたときの残がいですね。 

各1文字をくわしくみると，最初の D には， 1， F というコードがくっついていますね。これは，先 
程のキーコード表の番号です。大文字の D のキーの部分をみると， 



ほら， 1 F ですね。残りの文字も対応づけてみて下さい。 

5-1-2 インタプリタのキー入カバッファ 

BIOS のキー入カバッファは16文字分のバッファしかないため16文字しか先行入力できません。 
ところが， Nss-BASIC (86) では，32文字の先行入力ができます。これは，インタプリタ用に，も 
う1つキー入カバッファがあるためです。 

インタプリタ用のキー入カバッファは，テキストセグメント（セグメント60 H ) 内にあります。 
•キューアドレス： 4 E 0 H 〜 4 FFH 

•キューハへソファ.ボインタ： 46 EH , 46 FH (ヘッドボインタ） 
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•キューバッファ最終アドレス+1: 470 H ， 471 H (テイル•ポインタ） 
• キューバッファ文字数： 472 H , 473 H (バッファ • カウンタ） 

次にこの概念図を示しておきます。 



[(472H, 473H)] 

バッファカウンタ 


今度は，1文字1バイトで，そのアスキーコードが入ります。 


5-2 ファンクシヨンキー 
5-2-1 ファンクションキーの構造 

ファンクションキーの内容は，テキストセグメント （60 H ) の379 H 〜 42 AH に格納されていま 
す0 


f -1379 H 〜 389 H 
f -2 38 BH 〜 39 BH 
f -3 39 DH 〜 3 ADH 
f -4 3 AFH 〜 3 BFH 
f -5 3 C 1 H 〜 3 D 1 H 


f -6 3 D 3 H 〜 3 E 3 H 
f -7 3 E 5 H 〜 3 F 5 H 
f -8 3 F 7 H 〜407 H 
f -9 409 H 〜 418 H 
f -10 41 AH 〜 42 AH 
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各キーにつき，17バイトが割り当てられていますが，各バッファの先頭の1バイトで，キーに格 
納されている文字数を示し，終わりの1バイトが必ず〇〇 ( 文字の出力は先頭の文字数でやってい 
るので，この00は，あまり意味がありませんが，）となっているので，定義できるのは15文字まで 
となっています。 

各キーバッファは，スペース（コード 20 H ) で区切られています。（あとで説明しますが，このス 

ペースがくせものです。） 

KEY 1/1234567890123456" 

Ok 

で，16文字，入れましたが，0キーをおすと，15文字しか登録されていません。 

ところが， 

DEF SEG =& H 60 
Ok 

POKE & H 379，16 —16 文字にする 
Ok 

POKE & H 389 , ASC ( _6 •)— 〇〇の部分に6をかきこむ 
Ok 

ここで_キーをおして下さい。16文字表示されたでしょう。00は一見区切り記号のようですが， 
意味はないのです。これも使えば，1つのファンクションキーで，16文字まで登録できます。 
今度は，2つのファンクションキーを，つなげてみましょう。 

先頭の文字数をかえてやれば，2つのファンクションキーを連結することができます。 

f * l と f *2 をつなげてみましょう。 

KEY 1/ ABCDEFGHIJKLMN 0 - 
Ok 

KEY 2/123456789012345- 
Ok 

この状態では， g を押してもアルファベットしか出ません。ここで，次のようにします。 

JEF SEG =& H 60 
Ok 

POKE & H 379，& H 22 — 34文字にする。 

Ok 

POKE & H 389, ASC (_@•) — 〇〇のところに @ をかく。 

Ok 

POKE & H 38 B • ASC (• + •>— f . 2 の文字数のところに十をかく。 

Ok 

ここで^ n をおします。 
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ABCDEFGHIJKLMNO0 +12345678901231 

t t 

区切り マーク カーソル 点滅 

_と_がつながってしまいました。こうすることによって17文字以上の定義もできます。 

しかしよく見ると，@と十の間に—(下線)が見えますね。ここは，38 AH 番地に相当します。モ 
ニタでみてみましよう。 


MON 
h ： C 60 
h ： D 38 A 
038 A 20 ••• 


コード 20 H は空白です。下線のコードは， 80 H ですからおかしいですね。この20を41にかえ 
てみましよう。 


h ： S 38 A 
038 A 20-41 
h ] D 38 A 
038 A 41••- 


確かに41になっています。これで下線は，41 H ( A ) になるかな？ 

hlTB 

Ok 

_キーをおしてみましよう。 

ABCDEFGHIJKLMNO _+1234567890123 

やっぱり，下線が表示されますね。 38 AH 番地はどうなったでしょうか？ 


M 0 N 
h ： C 60 
h ] D 38 A 
038 A 20 ••• 
hD 
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あれっ。いつのまにか 20 H (空白）に戻っています。 

数字の部分も0123で終わっています。本当は，012345まであったのですが, 
ファンクションキーをつなげても，31文字までしか登録できないからです。 
しかし，この下線の区り記号なんとか消せないものでしょうか。 


MON 
h ： C60 
h]S5C7 
05C7 80-00 


さて今度はどうですか， r ?* ii をおして下さい。 

ABCDEF6HIJKLMNO@+1234567890123 

消えた。区切りの下線が消えましたね。 

5 C 7 番地に00を書いただけですね。 

テキストセグメント 60 H の BASIC のワークエリア中の 5 C 6 H 〜 5 CFH 番地は，ファンクシ 
ンキーの状態をあらわすフラグだったのです。 

その意味は， 

' 80 H … 通常のファン クシ ヨンキー 

• 20 H …キー割り込み ON 

UoH …ファンクシヨンキーとしての働きを殺す。 

ということだったのです。各アドレスとキーは次のように対応しています。 


5 C 6 H … 

…イ-1 

5 CBH …. 

.…. f -6 

5 C 7 H … 

…イ-2 

5 CCH …" 

…ィ.7 

5 C 8 H …" 

…ィ-3 

5 CDH … 

'…. f -8 

5 C 9 H … 

… . f _4 

5 CEH … 

… . f -9 

5 CAH …- 

… . f -5 

5 CFH … 



さっきは，_キーの機能を殺したので，区切りの下線が消えたのですね。このとき，モニター 
で書き直しましたが ， KEY (2) ON 

としても下線を消すことができます。ただし，下線のかわりに空白を表示します。 

ABCDEFGHIJKLMNOd +1234567890123 

空白になっている 
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なぜモニターで書き直したかというと， POKE を使っても書き直せなかったからなのです。 5 C 7 
H に00を書き込めば，区切りのスペースは無視されるのですが，どうすればよいのでしょうか？ 

POKE & H 5 C 7,0 

では， 5 C 7 H 番地に書き込むことはできませんが， 

POKE & H 38 A ,0 

とすればよいのです。_キーをおして下さい。区切りの下線もスペースも消えましたね。モニタ 
で， 5 C 6 H 番地をみてみましょう。 


MON 

h ： D 5 C 6 

05 C 6 80 00 80 80 80 80 80 80 80 80 
h ： 

ほら，00になっていますよ， 38 AH 番地に00を書き込んだはずなのに変ですね。これは，ファン 
クシヨンキーの状態フラグは， 5 C 6 H 〜 5 CFH にありますが，その書き換えは，各フアンクシヨン 
キーバッファの前にある， 20 H (スペース）の書き込んである番地を使って行うのです。 

ファンクションキーの状態フラグは，次の番地に POKE すると OK です。 


f -1 …… 

…… 378 H 

f -6 …… 

••… 3 D 2 H 

f -2 …… 

…… 38 AH 

f -7. 

3 E 4 H 

f -3 …… 

…… 39 CH 

f -8 …… 

… 3 F 6 H 

f -4 …… 

…… 3 AEH 

f -9 …… 

…" 408 H 

f -5 …… 

…… 3 C 0 H 

f -10 .•… 

…… 419 H 


しかし，実際のフラグは f -1 〜 f -10 それぞれ 5 C 6 H 〜 5 CFH にあります。 

5-2-2 ファンクションキーの初期化 

ファンクションキーの初期データは， ROM の中に入っています。しかし， ROM のバージョンに 
よって，その位置は，様々に違います。しかし， ROM 内ルーチン CALL のインタラプトのベクタ 
を用いると， ROM のバージョンによらずに，初期データの位置を知ることができます〇アドレスが 
分かれば，あとは，そのデータを RAM のバッファに転送してやるだけでよいのです。 

これを BASIC で行うと次のようになります。 


ファンクシヨンキー初期化プログラム 


0 3 AVE _ FNKEY . INI ' 

100 ^ F.INIT 
110 / 

120 x FUNCTION KEY INITIALIZE 
130 x INDEPENDENT ROM VERSION 
140 / 

150 DIM S (179) 
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AX, AX 

DS,AX 

BX,[0310] 

DS*[0312] 

BX,0007 

AX,[BX] 

AX,002A 

BX,AX 

BX ， [BX] 

AX, 0680 

AX,[BX] 


0000 31C0 
0002 8ED8 
0004 8B1E1003 
0008 8E1E1203 
000C 83C307 
000F 8B07 
0011 052A00 
0014 89C3 
0016 8B1F 
0018 B 88006 
001B 3B07 


160 / 

170 " GET THE ADDRESS OF FUNCTION KEYS" DATA 
180 / 

190 DEF SEG=0 

200 O1=PEEK(&H310)+PEEK(&H311)^256 

210 S1=PEEK(&H312)+PEEK(&H313)*256 
220 DEF SEG=S1 

230 02=PEEK(01+7)+PEEK(01+8)*256:03=02+42 

240 04=PEEK(03)+PEEK(03+1) *256 

250 • 

252 FL=-1:N=0：WHILE FL 

254 IF PEEK(O4)=&H80 AND PEEK(04+1)=6 AND PEEK(04+2)=ASC( B 1') 

AND PEEK(04+3 〉 =ASC<_o-) AND PEEK(04+4)=ASC('a') THEN FL=0 
256 04=04+1 : UEND 

258 05=04-1 

260 x 

270 ' GET THE FUNCTION KEYS' DATA INTO S(I) 

280 / 

290 FOR 1=0 TO 179 
300 S(I)=PEEK(05+I 〉 

310 NEXT 
320 / 

330 y SET THE DATA TO RAM BUFFER 
340 / 

350 DEF SEG=&H60 
360 FOR 1=0 TO179 
370 POKE &H378+I,S(I) 

380 NEXT 
390 / 

400 / INITIALIZE THE SCREEN KEY LIST 
410 / 

420 CLS 
430 RETURN 


190 行から 250 行が ファン クショ ン キーの初期データの TOP アドレスを求める部分です 。 INT 
C 4 H ルーチンのベクタ（セグメント0の 310 H 〜313 H にあります）を用いて ROM 内のそのルー 
チンのエントリからの偏差を計算しています。 

これはサブルーチンになっていて，必要な所に GOSUB * F . INIT を入れておくとファンク 
ションキーが初期化されます。 

次に，これを，マシン語で行った例を示します。 


RVUVUVDVDVWP 
XOMOMOMOADMOADMOMOMOCM 
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001D 

7403 

JE 

0022 

001F 

43 

INC 

BX 

0020 

EBF9 

JMPS 

001B 

0022 

FC 

C し D 


0023 

16 

PUSH 

SS 

0024 

07 

POP 

ES 

0025 

B9B400 

MOV 

CX,00B4 

0028 

BF7803 

MOV 

□1,0378 

002B 

89DE 

MOV 

SI,BX 

002D 

F3 

REP 


002E 

M 

MOVSB 


002F 

31C0 

XOR 

AX, AX 

0031 

CF 

IRET 



マシン語格納領域を， 


CLEAR ， & H1D00 
Ok 

で確保し ， Disk BASIC ならばモニタにアセンブラがありますから， 

h]A0 

で入力して下さい。 ROM 版の人は，アドレスのすぐ右のオブジェクト•コードをモニタの S コマン 
ドを使って， 

h]S0 

0000 00-31 00- C0 00- 

と入力して下さい。 

実行は，モニタのまま， 


h]G0,28 


とするか， 

DEF USR=0 
Ok 

A=USR(0) 

Ok 


又は， 


F.INIT=0 

Ok 


CALL F.INIT 
Ok 

として下さい。 

5-2-3 ファンクションキーの退避•復活 

ビジネスプログラム などで， ファンクションキーの 内容をひんぱんに書き換える ものが あります 
が，よく使う キーの 内容は，あるメモリ領域に退避して保存しておき，必要なときに復活すると便 
利です。 

そこで， CALL 文を用いて，そのパラメータが0のときは退避，1のときは復活させるルーチン 
を紹介します。使い方は次のとおりです。 
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DEF SEG=&H1F00 
FK=0 

A %=0( 退避）または於=1(復活) 

CALL FK(A^) 


次にそのサンプル プログラムを 示します。 


フアンクシヨンキー退避 • 復活プログラム 


1 save FK•bas _ 

100 CLEAR ， & H1F00 : UIDTH 80,25 
110 DEF SEG =&H1F00 : FK=0 
120 FOR AD=0 TO &H22 
130 READ D$ : D=VAL( - &H , ， +D$) 
140 POKE AD,D 
150 NEXT AD 


160 A^=0 : CALL FK(AW ' Sa^e 

170 FOR 1=1 TO10 : KEY I," jNEXT I 

180 FOR 1=1 TO 2000 i NEXT I 

190 A ィ -1:CALL FK(A2) : UIDTH 80 Restore 

200 END 

ooa nATA ミ， 3,3 ，ミト i 6 , 5B ， 0E ， 59 ， 0E ， 1F ， BE ， 78 ， 0 3 ， BF, 23 ,00:’0000H 
ミ普 5 ⑼ 0B,C0,74,04,87,D9,87,F7,8E > DB > 8E,C1,FC > B9,5A,00 ： / 0010H 
230 DATA F3,A5,CF,90,90,90,90,90,90,90,90,90,90,90,90,90 : 7 0020H 

※しかし表示は変リませんのでシフトキーを押すか， CONSOLE ，， 1を実行して下さい。 


5-3 キー • スキャン 方式 

PC-9801 のユーザーズ •マニュアルを 見る と，「19.4.1 スキャン 方式」 という章が あり， I/O ポ 
ートとキーの対応表がのっています。 

確かに， BASIC の INP 関数を用いて行うと，このとうり，対応するビットが〇になりますが，マ 
シン語の IN 命令で直接行うと，うまくいきません。 

一体どうなっているのかというと， I/O ポート E0H 〜 ECH は実際には，使われていないのです。 
INP 関数の処理ルーチンは， I/O アドレスを抽出した時点で， E0H 〜 ECH 以外は， 

EC IN AL, DX 

を行い，実際の I/O アドレスポートから直接値を取り込みますが， E0H 〜 ECH の場合は，セグメン 
卜 0( システム共通域）のオフセット 52AH 番地〜 539H 番地の 16 バイトの入カキーに対応したビッ 
卜表を用いて，その値を決定しているのです。次に INP 関数のフローチャートを示しておきます。 
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BASIC の INP 関数のフローチヤート 


ですから， EOH 〜 ECH は使っていないのです。 

マシン語でキース キャンをするときも， I / O ポートのにせポート EOH 〜 ECH を 使っ てはいけま 
せん。 

セグメント0000 H のアドレス 52 AH -539 H 番地の表を使わなければなりません。次にその対応 
表を示します。 
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セグメント 0 


キーコード 
グルーブ 

\ビット 
ァドレ 

bo 

bi 

b 2 

b3 

b 4 

b 5 

b6 

b 7 

0 

52A 

ESC 

し 

；, 

# T 

3 ア 

$ ヴ 

4 ウ 

%エ 

5 エ 

& ォ 

6 才 

, ャ 

7 ャ 

1 

52B 

(ュ 

8 ユ 

) ョ 

9 3 

0 ヲ 

7 

ーホ 

A へ 

¥ 一 

BS 

TAB 

2 

52C 

Q 夕 

W テ 

イ 

E ィ 

R ス 

T 力 

Y ン 

U ナ 

I 二 

3 

52D 

0 ラ 

P セ 

@ 〃 

1 r 
[ 〇 


A チ 

S 卜 

D シ 

4 

52E 

F ハ 

G キ 

H ク 

J マ 

K ノ 

L リ 

+ 

； レ 

氺 

• ヶ 

5 

52F 

I j 

] 厶 

Z ツ 
ツ 

X サ 

c ソ 

V ヒ 

B a 

N ミ 

M モ 

6 

530 

， i ， 

> 

• O 

ノレ 

ぺ. 

p 

SPACE 

XFER 

ROLL 

UP 

ROLL 

DOWN 

7 

531 

INS 

DEL 

t 

< — 

— > 

1 

HOME 

CLR 

HELP 

8 

532 

- 

/ 

7 

8 

9 

氺 

4 

5 

9 

533 

6 

+ 

1 

2 

3 

= 

0 


A 

534 

• 








B 

535 









C 

536 

STOP 

COPY 

f • 1 

f • 2 

f • 3 

f • 4 

f • 5 

f • 6 

D 

537 

f • 7 

f • 8 

f • 9 

f •10 





E 

538 

SHIFT 

CAPS 

カナ 

GRAPH 

CTRL 




F 

539 










おされているキーのビットが立ちます。 HI キーがおされたとすると，531 H 番地の内容が04にな 
ります。[ II と B が同時におされたとすると 0 C になります。 

表 5-3 キースキャン 対応表 

538 H 番地は，特殊キーですが，特殊キーをまとめたものが 53 AH 番地にもあります。即ち， 53 AH 
番地の内容と 538 H 番地の内容は同じです。 

このテーブルを更新するには， ROM 内ルーチンの「キー•センス」を呼ばなければ，なりませ 
ん〇 

キー，センスルーチンの呼び方は， 


テンキ 
の部分 
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MOV DI,4BH 
CALL ROM_CALL 


ROM.CALL ： PUSH DS 
PUSH SS 
POP DS 
INT 0C4H 
POP DS 
RET 


とします。 

次に，マシン語ルーチンで， STOP キーチヱックを行うプログラムを紹介します。 
これは， PC- 8001 の ROM 内ルーチン 
0CF1H スト ップキーチエック 
に相当するもので， 

このルーチンの出力は 

， CF= 1 .STOP キーが押されている 

ICF= 0 .STOP キーが押されていない 


です0 


ストツプキーチエツクルー 

•チン 



0000 06 

PUSH 

ES 


000150 

PUSH 

AX 


000216 

PUSH 

SS 


0003 1F 

POP 

DS ; 

DS=60H 

0004 31C0 

XOR 

AX,AX ; 

ES= 0 テキストセグメント 

0006 8EC0 

MOV 

ES,AX 


0008 BF4B00 


DI,004B ; 

キーセンス ROM 内ルーチンコ - 

000B 06 

PUSH 

ES 


000C CDC4 

I NT 

C4 


000E 07 

POP 

ES 


000F 26 

ES: 


ス トッ プキーのビットが 1 か？ 

0010 A13605 

MOV 

AX, [0536]; 

0013 250100 

AND 

AX, 0001 


0016 F9 

STC 

i 

CF= 1 

0017 7501 

JNE 

001A 


0019 F5 

CMC 

J 

CF= 0 

001A 58 

POP 

AX 


001B 07 

POP 

ES 


001C C3 

RET 




このプログラムは，マシン 語 ルーチンの 中で， |STO 尹 キーの 押下を調べるものですから， BASIC 
から CALL しても全く意味がありません。 

100 H 番地からチヱック用のルーチンを作って確認してみましよう c 
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0100 E8FDFE CALL 0000; ストップキーチエックルーチンを呼ぶ 

0103 73FB JAE 0100 

010D CF IRET ; ストップキーが押されるまで LOOP する 

h ] G 100,105 

で実行できます。 [ STOP | キーを押すと再びモニタのプロンプト 

h ] 

が出てきたでしょう。 

@TO 多! キー チェッ クルーチンを使って， 自分の 作ったマシン語ルーチンで， [ stop ] キーを 押すと 
停止するとか， [ ESC 1 キーを 押すと一時停止するな ど 応用して下さい。 

5-4キー入力のセンス 

刖節で「キー•センス」について少し触れましたが，もっと簡単なインタラプト コールの 方法があ 
りますので紹介します。キーボードの上のキーはすべて前節の表5_3の左側に 00 H -0 FH までの 
キーコードグループの いずれかに属しています。ここで述べる のは， 該当する キーコードグループ 
のキー入力状態を調べ，押されている キーは 対応ビットを1とし，押されていない キーは 0として， 
その状態を通知するものです。 

このキー入カセンスの呼び方は次のとおりです。 

MOV AH,04H 

MOV AL, キーコードグループ番号 （ 00H - 0FH) 

INT 18H 

結果は AH にキーコードグループ内の8つのキーの押下状態を8ビットで格納されてきます。 

07 4 キー番号- - bo 


ここで前節のストップキーチエックと同様のことをプログラミングしてみましょう。ストップ 
キーはコードグループ 0 CH にありますので次のようになります。 


PUSH SS 

POP DS ;DS<=SS 

MOV AH ， 04H 

MOV AL.0CH 

INT 18H 

AND AH,01H 

STC 

JNE BACK 
CMC 

BACK: RET 
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5-5 キー入力方法•キーセンス比較表 

BASIC でキー入力のプログラミングをする際の参考として，入力やセンスの方法を一覧表として 
とめました。 


★文字列の入力方法の比較表 




INPUT 

INPUT WAIT 

LINE INPUT 

LINE INPUT WAIT 

INPUT$(X) 

INKEY$ 



文 

文 

文 

文 

関数 

関数 

入 

プロンプト文 

可能 

可能 

可能 

可能 

不可能 

不可能 

プロンプト 

マーク？ 

可能 

可能 

紐 

無 

紐 

姐 

力 

表 

不 

カーソル表示 

有 

有 

有 

有 

有 

可能* 1 

エコー バック 

有 

有 

有 

有 

输 


入力待ち 

待つ 

指定した時 
間だけ待つ 

待つ 

指定した時 
間だけ待つ 

待つ 

侍たない 


，の入力 

ダブルクオー 
卜で囲めば可 

ダブルクオー 
卜で囲めば可 

可能 

可能 

可能 

可能 

デ 

”の入力 

文字列の最初 
でなければ可 

文字列の最初 
でなければ可 

可能 

可能 

可能 

可能 

1 

コントロールコード 

カーソルキーの 入力 

不可 

不可 

不可 

不可 

可能 

可能 

夕 

複数の変数 
への入力 

可能 

可能 

不可 

不可 

不可 

不可 

入 

入力文字数 

254 文字以内 

254 文字以内 

254 文字以内 

254 文字以内 

指定した文字数 
(255 文字以内） 

1 文字 

力 

入力終了 

H キー 

0キー 

0キー 

H キー 

自動 

—— 


入力文字なし 
しで13キー 

ヌルストリング 

ヌルストリング 

ヌルストリング 

ヌルストリング 

CHR$(13) 

CHR$(13) 

|STOP| 

BREAK 表示 

あり 

あり 

あり 

あり 

なし 

あり* 2 

キ 

1 

CONT に 
よる再開 

可能 

可能 

可能 

可能 

不可 

可能* 2 


*1 :通常はカーソルは表示されませんが、表示させることも可能です。第14章ランダムテクニ 
ックを見て下さい。 

*2 : INKEY $ がブレーク されたり CONT されたりするわけではありません。 
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INKEY $ 自体は STOP キーを CHR $(3) として受け付けることも可能です。 


★キーセンス比較表 



INPUT $(1) 

INKEY $ 

INP ( X ) 

WAIT 

入力待ち 

待つ 

待たない 

侍たない 

待つ 

STOP キー 

中断 ( CONT 不可） 

中断* 

中断# 

中断しない 

複数キーの同時入力 

不可 

不可 

可能 

可能な場合もある 

入力文字の判断 

簡単 

簡単 

複雑 

複雑 

力ーソル表禾 

表示する 

表示させることも可 

表示させることも可 

表示させることも可 

キー割り込み 

きかない 

きく* 

きく* 

きかない 


* 入力待ちがないため INKEY $, INP ( X ) 自体は STOP キーやキー割り込みとは関係ありません。 
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第 6 章カセツトファイル 

6-1 CMT インターフェイス 

6-2 CMT とのデータ転送の仕様 

6 - 3データフオーマツト 
6-3-1 プ□ブラムファイル 
6-3-2 データファイル 
6-3-3 フシン語ファイル 

6-4 内部ルーチン 
6-4-1 データ 書き込み 

6-4-2 データ 読み込み 

6-5 マシン語によるセーブ•□ード 

6-6 BASIC と7シン語を一度に SAVE 10 AD 

6-7 データの高速セーブ•□ード 




第 6 章カセットファイル 


6-1 CMT インターフェイス 

PC -9801 には， CMT インターフヱースボード ( PC -9801-03) があり，オーディオカセットへの 
データ書き込みおよびカセットからのデータ読み込みが行えます。このインターフヱイスの入出力 
信号は， CMT インターフヱイスボードのカセット用コネクタ （8 ピンの DIN コネクタ）に接続さ 
れています。カセットレコーダと CMT インターフェイスとを接続するには，カセットケーブル(添 
付のケーブルまたは PC -8093) を用います。 


6-2 CMT とのデータ転送の仕様 

CMT とのデータ転送は，次のような仕様で行われます。 

通信速度： 600ボー/1200ボー 
(ソフトで選択可能） 

通信方式：調歩式（アシンクロナスモード），全二重 
ストップビット： 2ビット 
符号単位数： 8ビット 

6-3データフォーマット 


6-3-1 プログラムファイル 

N 88 - BASIC (86) の プログラムを カ セツ トに SAVE したときの フォーマッ トは次のようになり ま 

to 


モータ オン ウェイト 2. 5 秒 


D 3 X 10 回 


、， S 

WAIT 

スペース 

0. 6秒 

WAIT 

マーク 

1.9 秒 

へ'、} y 一 

D 3 が 

10バイト 


エン ド マーク 


モータ 

オフ 


ファイル名 

6バイト 


WAIT 

マーク 

0.1 秒 


ブログラム 
.本体 
最後の3バ 
イトは00 


00 X 9 


WAIT 
1.3 秒 


まずテープレコーダのモータをオンにし，テープ走行が安定するまで待った後， D 3 H を10個書 
き込みます。次に，ファイル名を書き込みますが，6文字に未たないときは，その後に 00 H をつけ 
加え6バイトにします。それから再びウェイトがあります。これは， LOAD 時に、' Found " や、' Skip " 
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などの表示をするための時間です。 

さて次がいよいよプログラム本体です。本体が書き込まれた後の最後の3バイトは00 H になつ 
ていて，次に続く 9つの00 H とあわせ，12個の 00 H でエンドマークとなります。 


6- 3-2 データファイル 


モータ オン モータ オフ 


WAIT 

WAIT 

ヘッダー 

データ 

WAIT 

スペース 

マーク 

M 9CH” 

マーク 

0.6 秒 

1.9 秒 

6 バイト 

本体 

1.3 秒 


テープ走行安定のためのウェイトが 2.5 秒あるのは，プログラムファイルと同じで， 9 CH を6個 
書き込んでヘッダーを作り，データファイルであることを示します。 

綠ぃて， データ本体が書き込まれますが，数値の場合もすベて文字列に直して書き込まれます。 

6-3-3 マシン語ファイル 


ヘッドブロック デー タブ ロック1 

モータオン - - - - - - - - - . 


データブロック2 エンドブロック モータ 
‘ --- 、‘ ---^ オフ 


WAIT 

”3 A ” 

AH 

AL 

CS 

M 3 A ’， 

N 

データ 

CS 


N 


CS 

”3 A ” 

N 

CS 

WAIT 

マーク 







1-255 


”3 A ” 


1-255 



”00” 

”00，， 

マーク 

3. 8秒 

1 

1 

1 

1 

1 

1 

バイト 

1 


1 

バイト 

1 

1 

1 

l 

1_3 秒 


まずウェイトがあった後，ヘッドブロックがあります。これは，次のようになっています。 

3 AH を1個書き込む 

AH = スタートアドレス （ High ) 

AL = スタートアドレス （ Low ) 

CS =チェックサム 
N = データ数 （00 〜 FFH ) 

6-4 内部ルーチン 

ここではアセンブリ言語（マシン語レベル）でカセットファイルへの書き込み，読み込みを行う 
プログラムを紹介します。 
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6-4-1 データ書き込み 

CMT のモータをオンにし，データの書き込みを可能にし，データを書き込みます。 


MOV AH,03H 

MOV AL,00H (6〇〇ボー） モータ•オン 

80H (1200 ボー）書き込み可能 

INT 1AH 


MOV AH,04H 

MOV AL,41H ( 出カデータ 1 バイト 
INT1AH 例では、、八"） 


書き込み 


6-4-2 データ読み込み 

CMT のモータをオンにして，読み取り可能に設定し，データを読み取ります。 


MOV AH,02H ) 

MOV AL,00H (6 〇〇 ポー） モータ •オン 
80H (1200 ボー）読み取り可能 
INT 1AH } 


MOV AH,05H 

MOV AL,00H (リードエラー通知 ) 
0 1H ( エラーを無視） 

INT 1AH 


読み取り 


AH=00H ( 正常終了） 

02H ( タイムアウト） 

27H ( テープリードエラー）結采 
AL= ( 入カデータ） 


6-4-3 CMT のモータオフ 

CMT のモータをオフにします。 

MOV AH,01H \ モータ•オフ 
INT 1AH J 終了 


6~5マシン語によるセーブ•口ー ド 

内部ルーチンの使い方が分かったと：!：ろで実際のプロダラミングに挑戦してみましょう。アス 
キーコードの〇から255までをセグメント 1 F 00 H , オフセット10 0 H から書き込んでおき，まずそれを 
セーブします。•次にそのデータを同じセグメントのオフセット200 H からロードしてみます。 
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MOV 

MOV 

INC 

INC 

LOOP 


DATA=256 


AL,AL 

CX,100H 

CS 

ES 

BX,100H 

ES:[BX],AL 

AL 

BX 

STORE 


CASSETTE READ 
SAMPLE 


0E 

START ： 

PUS 卜 

1 CS 



07 


POP 

ES 

: ES=CS 


BB0002 


MOV 

BX,200H 

;DATA STORE OFFSET 

B 90001 


MOV 

CX,100H 

;CX=NO. OF DATA 

B402 

CMTON: 

MOV 

AH,02H 

;MOTOR ON AND 

READ READY 

B080 


MOV 

AL,80H 

; 1200 bps 


CD1A 


I NT 

1AH 

；CALL 


B405 

READ: 

MOV 

AH,05H 

；READ DATA 


B000 


MOV 

AL,00H 

;ERROR CHECK 

ON 

CD1A 


INT 

1AH 

； CAL し 


80FC00 


CMP 

AH,00H 



75F5 

000E 

JNE 

READ 

: IF NOT READ 

THEN TRY AGAIN 


;LOOP UNTIL CX=0 


AH.03H 
A し， 80H 
1AH 


MOTOR ON AND URITE READY 

1200 bps 

CALL 


BX ， 100H 

CX,100H 

AL,ES:[BX] 

AH,04H 

1AH 

BX 

LP 


A レ DATA 
URITE DATA 
CALL 


BACK TO BASIC 


DATA ： 

STORE: 

000A 

CMTON: 

URITE: 

LP ： 

001E 


BB0001 

B 90001 

268A07 

B404 

CD1A 

43 

E2F6 

CF 


32C0 
B 90001 
0 E 
07 

BB0001 

268807 

FEC0 

43 

E2F8 


カセツトから読み込み 


使い方は，それぞれ 

DEF SEG=&H1F00 
A=0：CALL A 

で OK です。 

カ セツ トへの書き込み 


CASSETTE URITE 
SAMPLE 


H 

R uv s p 

o o u o 

X M p p 


F 

0 o 

II . 
し 0 

AN 


01258 Ac E 0247 

-y 0 CS 0 CS CS vH 1 ix 
0 0 0 0 0 0 0 0 0 0 0 0 
0000 0 00 00000 


5 

5 

2 



s E 
c s 0 

II F II 

s U_I 

E o A 


V wv T 

G o N 
M N [ 


p I — 

UVVUVVTCOE 
OOOONNOR 
MMMMII し I 


8 B E 13 5 6 8 
1112 2 2 2 2 
0 0 0 0 0 0 0 
0 0 0 0 0 8 0 0 


0 2 UJ 6 7 A D F 0 
0000000 0 1 
0 0 0 0 0 0 o 0 0 
0-000 0 0000 


3 0 A 
0 81 

4 0 D 
BBC 

2 4 6 

r — 一 r — I r^ - 
0 0 0 
0 0 0 
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268807 

43 

CF 


000 E 


MOV ES ： LBXJ,AL 
INC BX 
LOOP READ 
I RET 


A し : ^DAIA 


BACK TO BASIC 


6-6 BASIC とマシン語を一度に SAVE • LOAD 

BASIC のプログラムと マシン 語をリ ンク させたソフトがよ く 見うけられます。特に ゲーム ソフト 
ではその傾向が強いようです。カ セツ トテープを 使って， BASIC と マシン 語が リンク されたプログ 
ラムをメモリ上にロードするには通常次の2通りがあります。 


1 .BASIC の DATA 文中にマシン語を入れておき，それを READ 文で読み出した後， POKE 文 

により書き込む。この方法ですと， BASIC のプログラム1つになるため， SAVE , LOAD で 

OK ということになります。しかし BASIC のプログラムが少しふくらむことになります。 

例）1 ' sa リ e " poke " 

100 DEF SEG=&H60 
110 SUB=&H283E 
120 FOR 1=0 TO18 

130 READ D$ : POKE SUB+I,VAL("&H"+D$) 

140 NEXT 

150 DATA B8,FF,06,BB,D0,00,4B,83,FB,00 
160 DATA 75,FA,48,3D,00,00,75,FI,CF 
170 TIME$= H 00:00:00" 

180 CALL SUB 
190 PRINT TIME 丰 
200 END 


2. MON コマンド により マシン 語モニタに移り， W.R コマン ドで マシン 語を セーブ •ロー ドしま 
す。そして， BASIC のプログラムを SAVE や LOAD します。この方法ですと， BASIC のプ 
ログラムはふくらみませんが BASIC と マシン 語を別々にセーブ•ロードしなくてはいけま 
せん。 


そこで，第3の方法を紹介いたしましょう。これは，1と2の方法の欠点を解決したもので，メ 
モリー上にある BASIC とマシン語のプログラムを SAVE だけで一度にセーブし，またそれを 
LOAD だけでロー ドできます。 

PC -9801 では， BASIC のプログラムは次のアドレスに格納情報があります。 

セグメント=60 H 

オフセツト =6 A 4 H ，6 A 7 H 


9 . c D ド 

1_ IX IX 1J 
0 0 0 0 
0 0 0 0 
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6 A 4 H , 6 A 5 H に BASIC のトップアドレス， 6 A 6 H と 6 A 7 H にエンド/ドレスが格納され 
ています。 


MON トップ エンド 

h]C60 

hDD6A4 1 _ ■ 1 t 

06A4 D8 27 3B 28 FE F3 FE F7 FE F9 00 01 00 01 EE F7 リ，；（月秒 
h]D283B 


BASIC + MACHINE 
DEF SEG=&H60 
SUB=&H283E 
TIME$=-00:00:00 M 
CALL SUB 
PRINT TIME$ 

END 



考え方としては， BASIC のプログラムのすぐ後ろからマシン語を入れておき，その最終アドレス 
を 〔6 A 6 H , 6 A 7 H 〕 に書き込めば 0 K です。そうして， SAVE すれば， BASIC とマシン語が一 
度にセーブできるわけです。それでも注意することが3つあります。1つは， BASIC の終りには必 
ず00 H が2つなぐてはいけないことです。2つめは，マシン語の中に00 H が10個以上連続してい 
ないことです。3つめは，マシン語の最後では00 H が10個以上続いていなければなりません。こ 
れは， BASIC プログラムのデータフォーマットを參照されたら解かると思います。これは理論的に 
はそうですが，実際はそうなっていなくてもいいようです。 

それではサンプルプログラムを示しながら実際に試してみることにしましょう。次の BASIC プ 
ログラムを入力して卞さい。なお，ここで示すアドレスは PC -9801 のバージョンとシステム構成に 
より異なることがあります。 


0 0 0 0 0 0 0 
12 3 4 5 6 7 
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283B 00 00 00 00 00 00 00 00 00 00 00 00 00 qq 00 00 
hHD283E * —ここからマシン語を入れる 

283E B8 FF 06 BB D0 00 4B 83 FB 00 75 FA 48 3D 00 00 クサミ K_ u H= 
h]D284E 

284E 75 FI CF 00 00 00 00 00 00 00 00 00 00 00 00 00 u f*J マ 

h ： D285E 

f285El 00 00 B8 FF 06 BB D0 00 4B 83 FB 00 75 FA 48 3D クサミ K«» u H= 

Ok ^ - ここをエンドとする 


ソースリスト 



283E B8FF06 


AX,06FF 

2841 BBD000 

MOV 

BX,00D0 

2844 4B 

DEC 

BX 

2845 83FB00 

CMP 

BX f 0000 

2848 75FA 

JNE 

2844 

284A 48 

DEC 

AX 

284B 300000 

CMP 

AX, 0000 

284E 75F1 

JNE 

2841 

2850 CF 

IRET 


2851 0000 

ADD 

[BX+SI],AL 

2853 0000 

ADD 

[BX+SI],AL 

2855 0000 

ADD 

[BX+SI],AL 

2857 0000 

ADD 

[BX+SI],AL 


マシン語はタイマールーチンで2秒間ウェイトするものです。 BASIC とマシン語の両方を入力し 
たら今度は ェン ドボインタを書き替えてセーブしましょう。 ェン ドボインタは，285 EH にしてみま 
す。そのまえに本来のェンドポインタ （283 BH ) を覚えておいて下さい。 

ここで SAVE します。が LIST をとってはいけません。暴走するか，リストがメチャクチャにな 
ります。 

セーブした後，リセットをかけてメモリをクリアしてから本当にロードできるか試してみましょ 
う。なお， LOAD した後，またェンドポインタを元にもどさなくてはなりません。なお、第2章の 
BASIC プログラム復活ルーチンを利用しても OK で、す。 


M0N 

h ： C60 

h]S6A6 

06A6 3B-5E 28 - 28 FE - 

h：TB 

Ok 

SAVE "CAS:TEST" 

Ok 
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SAVE “Dl.cas 

High Speed SAVE - LOAD 

DIM A$(10) 

FOR 1=1 TO10 
READ A$(I) 

NEXT I 

DATA A,B ， C ， D ， E ， F ， G ， H ， I ， J 

/ 

TIME$= M 00:00:00_ 

OPEN "CAS:DEMOr FOR OUTPUT AS #1 
FOR 1=1 TO10 
PRINT #1,A$(I) 

NEXT I 
CLOSE #1 
PRINT TIME$ 


00:00:29 

Ok 

1200 ボーで書いても 29 秒かかっています。では，そのデータを読んでみましょう。 


LOAD | CAS:TEST 
Ok 


MON 

h]C60 

h ： S6A6 

06A6 5E-3B 28-28 FE- 

h：TB 

Ok 

これまでの方法はちょっと手間がかかります。そこで，6_5のマシン語によるセーブ•ロードを 
使って1度に BASIC とマシン語をセーブ•ロードしてみるのも1つの手です。それは読者の皆様の 
課題にしておきましょう。なお，以上の方法では PAINT 文を実行するとマシン語部分が破壊され 
ますので要注意（第1章 1-5 參照)。 

6-7 データの 高速 セーブ•ロード 

カセットファイルにデータを書き出すには OPEN 、' CAS : ファイル名 " FOR OUTPUT AS # 
1としてファイルをオープンし ， PRINT #1, A $ のようにします。データが少ないときは1個1 
個書き出してもそんなに時間はかかりませんが，データが多いときは，けっこう時間をとります。 

これはデータを1個書くたびに区切りを入れているためです。次のプログラムを実行してみて下 
さい。10個のデータを書き込むものです。 


/ / 0 0 0 0 
0000000000123k 
1212345678911110 
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D3.cas M 

Speed SAVE.LOAD 
A$(10) 

1=1 TO10 
A$( I ) 

I 

A,B,C,D,E,F,G,H,I,J 


OPEN CAS:DEM03* FOR OUTPUT AS #1 
TIME$= u 00:00:00 M 
FOR 1=1 TO10 STEP 5 

PRINT + V_;A$(I+3):*V;A$(I+4:) 

NEXT I 
CLOSE #1 
PRINT TIME$ 


run 

00:00:06 
Ok 


今度は，たったの 6 秒になっています。ではそのデータを読んでみましょう。 


1 y SME “DSr.cas** 

2 'High Speed SAVE.LOAD 
10 ^ 

20 TIME$= u 00:00:00- 

30 OPEN M CAS:DEM03** FOR INPUT AS #1 


1 ^SAVE "Dir.cas" 

2 /High Speed SAVE - LOAD 
10 x 

20 TIME$="00:00:0O M 

30 OPEN °CAS:DEM0r FOR INPUT AS #1 

40 FOR 1=1 TO10 

50 INPUT #1,A$(I):PRINT A$(I) 

60 NEXT I 
70 CLOSE #1 
80 PRINT TIME$ 

Ok 

Ok 

run 

00:00:31 

Ok 


データリードには 31 秒かかりました。 


ではデータとデータの区切りをつめて，一気に書き込む方法を紹介しましょう。 

PRINT #1, A$ ( I ) : V ; A$ 

(1+1); '"•••というのがポイントでこの方法だと，非常に高速になります。次のサンプル 
を実行してみて下さい。 


E h 

uv 9M R A X - 
A 1-― -GEE A 
s H D F R N D . 


D T A 
T 


' G 0 0 0 
•u 0 0 0 0 0 0 0 0 12 3 k 

1 c.-l 1 C 4 4 LO ,0 7 00 9 1111 o 
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FOR 1 = 1. TO10 STEP 5 

INPUT #1,A$U ) ,A$( 1+1).A$( 1+2) *A$( 1+3) ,A$( I+a ) 
PRINT A$(I),A$(1 + 1),A$(1+2) ,A$(1+3),A$(1+4) 
NEXT I 
CLOSE #1 
PRINT TIME$ 


00 :00 :05 
Ok 

データリードは 5 秒となっています。 


0 0 0 0 0 0k 
4 5 6 7 8 9 0 
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第 7 章ディスクファイル 

7-1ディスクファイルの構造 

7-1-1 ディスクマップ 

ししでは， Ns 8 - Disk BASIC(86) におけるディスクのファイル構造に ついて まとめています。 


ディスクの物理構造 


ディスクタイプ 

サーフェス 

トラック数 

トラック 
番•，少 

セクタ数 

セクタ番号 

データ容 1 

参照図 

8 インチ両面倍密度 

〇〜 1 

77 

0 〜 76 

26 

1 〜 26 

l .() 2r>MB 

図 1 

5インチ両面倍密度 

〇〜 1 

40 

〇〜 39 

16 

1 〜 16 

327.08 KB 

図2 

5インチ闽面倍密度倍トラック 

〇〜 1 

80 

〇〜 79 

16 

1 〜 16 

(). r ) f)KB 

図3 

5インチ片面倍密度 

なし 

35 

〇〜 34 

16 

1 〜 16 

143.3 (jKB 

図4 

5インチ固定ディスク （5 MB ) 

〇〜 3 

153 

0 〜 152 

33 

1 -33 

5.17 MB 

図5 

5インチ固定ディスク （10 MB ) 

〇〜 3 

310 

0 〜 309 

33 

1 〜 33 

10.47 MB 

図6 


ディスクマップ 



サーフェス 

番号 

トラック 

セクタ番号 

I PL 

0 

0 

1〜4 

Disk コード 

0 

1〜2 

すべて 

1 

1〜2 

すべて 

ディレクトリ 

0 

35 

1〜22 

ID 

0 

35 

23 

FAT 

0 

35 

24〜26 



図18インチ両面倍密度フロッピィディスク 
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セクタ 16 セクタ1 



図2 5インチ両面倍密度フロッピイディスク 



サーフェス 

番号 

トラック 

番号 

セクタ番号 

I P L 

0 

0 

1〜2 

Disk コード 

0 

0 

3〜16 

0 

1〜3 

すべて 

1 

〇〜3 

すべて 

ディレクトリ 

1 

18 

1 ~12 

ID 

1 

18 

13 

FAT 

1 

18 

14-16 


セクタ16 セクタ1 




サーフェス 

番号 

トラック 

番号 

セクタ番号 

I PL 

0 

0 

1〜2 

Disk コード 

0 

0 

3〜16 

0 

1〜8 

すべて 

1 

0~8 

すべて 

ディレクトリ 

0 

40 

卜 12 

ID 

0 

40 

13 

FAT 

0 

40 

14 〜 16 


図3 5インチ両面倍密度倍トラックフロッピイデイスク 
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-トラック巧 1 





ヽ — トラック巧 2 


図5 5インチ固定ディスク （5 MB ) 


図4 5インチ片面倍密度フロッピィディスク 


セクタ 33 セクタ 1 


セクタ 32 




トラック 

番号 

セクタ番号 

I PL 

0 

1 〜 2 

Disk コード 

0 

3 〜 16 

1 〜 6 

すべて 

ディレクトリ 

18 

1 〜 12 

ID 

18 

13 

FAT 

18 

14〜16 




サーフェス 

#号 

トラック 

S 号 

セクタ番号 

IP L および 
システム予約 

0 

0 

すべて 

Disk コード 

0 

1 

すべて 

1〜2 

〇〜1 

すべて 

3 

0 

すべて 

ディレクトリ 

0 

75 

すべて 

1〜2 

75 

すべて 

ID 

3 

75 

1 

FAT 

3 

75 

2〜33 
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セクタ 33 セクタ1 



図6 5インチ固定ディスク (10 MB ) 



サーフェス 

番号 

トラック 

番号 

セクタ番号 

I PL および 
システム予約 

0 

0 

すべて 

Disk コード 

0 

1 

すべて 

1 〜 2 

〇〜 1 

すべて 

3 

0 

すべて 

ディレクトリ 

0 

150 

すべて 

1〜2 

150 

すべて 

ID 

3 

150 

1 

FAT 

3 

150 

2 〜 33 


7-1-2 ディスクアドレスとクラスタとの変換 

1) 5インチ片面のとき 

〈クラスタ〉=〈トラック > X 2+ <セクタ> ¥9 
くトラック〉=くクラスタ> ¥2 

くセクタ〉=(くクラスタ 〉 MOD 2) X 8 + 1 から8セクタ 

2) 5インチ両面のとき 

くクラスタ〉=〈トラック > X 4+ くサーフェス > X 2+ くセクタ> ¥9 

くトラック〉=〈クラスタ> ¥4 

くサーフェス〉二（くクラスタ MOD 4) ¥ 2 

〈セクタ〉=(〈クラスタ 〉 MOD 2) X 8 + 1 から8セクタ 

3) 5インチ倍トラック • 8インチのとき 

くクラスタ〉=くトラック > X 2+ くサーフェス〉 

〈トラック〉=くクラスタ> ¥2 共通 

〈サーフェス〉=くクラスタ 〉 MOD 2 , 

くセクタ〉二1セクタ〜16セクタまで全部 （5 インチ倍トラック） 
〈セクタ >=1セクタ〜26セクタまで全部 （8 インチ） 


7-1-3 ディレクトリ 

ディレクトリには，ファイル名，ファイルの属性，ファイルが格納されている先頭クラスタ番号 
がしまわれています。これによりファイル名とファイルが格納されている場所との対応がつけられ 
ます。 
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拡張子 


-ファイル名- 


—先頭バイト- 

00 : kill されたファイル 
FF : 未使用 


未使用 


-ファイルが格納されている先頭クラスタ番号 


属性 


bit 


7 6 5 4 3 2 1 


L マシン語フアイル 
-ライト•プロテクト （ P ) 

- P オプションファイル （ E ) 

-リードアフターライト （ R) 

-非アスキー形式 


KANJI DIC G 
formatnip」i 
sysgennip-D 
backupn88 JC 
xfi1esn88_A 
setinfn88—L 
DDcon«v»n88«J@ 
formathd _M 
recov hd —? 
xfi1eshd JO 
dir hd —P 
enu8 一く 
demol JQ 
demo2 

demo3 -JB 
demo5 —T 


デイレクトリの位置は， 


5 インチ片面 . トラック 18， セクタ 1 〜 12 

5 インチ両面 . サーフェス 1， トラック 18， セクタ 1 〜 12 

5 インチ両面倍トラック… サーフェス〇, トラック 40， セクタ 1 〜 12 
8 インチ . サーフヱス0, トラック 35, セクタ 1 〜 22 


となっています。 1 つのファイルに対して 16 バイトが割り当てられていますが，そのうち使用され 
ているのは11バイトです。ディレクトリは下図のようになっています。 

8インチ両面のとき 


FFFFFFFFFFFFFFFF 

FFFFFFFFFFFFFFFF 

FFFFFFFFFFFFFFFF 

FFFFFFFFFFFFFFFF 

FFFFFFFFFFFFFFFF 
F F F F*F FFFFFFFFFFF 


FFFF 


FFFFFFFFFFFFFFFFFFFFFFFFFFFF 


FFFFFFFFFFFFFFFF 

FFFFFFFFFFFFFFFF 

75431C0DFF0C1B34 

4444444434535355 


0 0 0 0 0 0 0 Qv 0 0 0 0 0 0 
08888888888888 


8080 


3008888000000000 
4773333222222222 

9998888444400000 
14663333666622222 
0 

4EEEEEE 888800000 
c 4666666666622222 
e 

S04E 0366403000000 
>2767767727222222 
3 

291555 EE1 65081235 
04667666676233333 
0 

AD7BC9FDFC05FFFF 

r 4 6 6 6 




,E 2339432392 EDDDD 
0A 776676766766666 
0 

IF 91654 F 56955555 
p 4676664666666666 
u 

SB 632834628404444 
• 46716774677606666 
1 

00000000000000000 
0123456789 ABCDEF 
p 000000 0000000000 
D 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
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7-1-4 ID セクタ 

ID には ユーザーズマニュ アルにある通り，ディスク全体の属性，一度に OPEN できるファイルの 


数，電源 ON (リセット）時に実行される文が格納されています。 

ID は， 

5 インチ片面 . トラック 18, セクタ 13 

5 インチ両面 . サーフヱス 1, トラック 18， セクタ 13 

5 インチ両面倍トラック… サーフヱス〇 ， トラック 40, セクタ 13 
8 インチ . サーフェス 0， トラック 35, セクタ 23 


に割り当てられています。 

8インチ両面の場合 


Dr 01, Sur ( 

30,Tr 0023, Sec : 

17 









0000 

r|00| 

1031 43 

4C 

53 

20 

3A 

20 

46 

49 

4C 

45 

53 

20 

3A 

20 

0010 

50 

52 

49 

4E 

54 

20 

44 

53 

4B 

46 

28 

31 

29 

3B 

22 

20 

0020 

43 

6C 

75 

73 

74 

65 

72 

73 

20 

66 

•72 

65 

65 

22 

00 

00 

0030 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0040 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0050 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0060 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0070 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0080 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0090 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 A0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00B0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00C0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00D0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00E0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00F0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 


CLS : FILES : 
PRINT DSKF(l)；■ 
Clusters free 


1 度に OPEN できるファイル数 


属性（ディレクトリを参照） 


なお， 1 度に OPEN できるファイル数と電源 ON 時に実行される文は，システムディスクでない 
と意味を持ちません。 


7-1-5 FAT (File Allocation Table ) 

FAT はフアイルの格納状態を示します。フアイルが 1 クラスタに納まらない場合，残りを別のク 
ラスタに書き込まなければなりません。この「別のクラスタ」をどこにするかにはいろいろな方法 
がありますが， N 88 -DISK BASIC (86) では，適当に空いているクラスタに書き込みます。このと 
き，どこのクラスタに書き込んだかを記録しておかないとあとで困ることになります。また，「別の 


171 










ヒ 

ヨテけテテチチ？こネヘフノ=モ 
ッ @ ム 7 こ D チ I チ KL フ又〇八 
ヒヒヒノヒ f ミチテ 7 トモヨチテ 


クラスタ 4 AH を見て下さい。これは CAT 1 というファイルの先頭クラスタです。ここには4 
BH という値が入っています。これはデータがクラスタ4 AH に入り切れず，クラスタ 4 BH に続い 
ていることを示します。クラスタ4 BH を見ると4 CH となっています。クラスタ4 CH を見ると値 
は CCH となっています。クラスタ CCH というものはありません。値が ClH 〜 DAH (5 インチの 
時は C 1 H — C 8 H ， 5インチ 2 DD の時は C 1 H 〜 D 0 H ) の時はここのクラスタでファイルが終わ 
っていて，下位5ビット （8 インチの時1〜1 AH ， 5インチの時1〜 8 H ， 5インチ 2 DD の時は 

01 H 〜 10 H ) がそのクラスタで実際に使用しているセクタ数を表わします。ここではクラスタ 4 CH 
のうち12 ( CH ) セクタを使用してファイルが終わっていることを示します。 


クラスタ」をさがす時に，どこが空きクラスタかが分からなければなりません。これらの情報を記 
録したものが， FAT です。 

ではこの FAT はどのようになっているか見てみましょう。 


FAT の位置は， 

5インチ片面 . トラック18,セクタ14〜16 

5インチ両面 . サーフェス1,トラック18,セクタ14〜16 

5インチ両面倍トラック…サーフェス〇,トラック40,セクタ14〜16 
8インチ . サーフヱス〇,トラック35,セクタ24〜26 


となっていて，3つのセクタとも同じものが入っています。 
8インチ両面の場合 


FFB3AFFFFFFFFFFF 

FFCDCFFFFFFFFFFF 

FFFDF3FFFFFFFFFF 

FFF34CFFFFFFFFFF 

FFF 971 FFFFFFFFFF 
H FFFCCCFFFFFFFFFF 

/ F F F c CI6 FFFFFFFFFF 
4 F F F c C-D FFFFFFFFFF 

夕 F F F D C13 FFFFFFFFFF 
XF F F C4D FFFFFFFFFF 


ラ F F F 8 一旦 4 FFFFFFFFFF 
ク F F F C-4-C FFFFFFFFFF 

FFF61FFFFFFFFFFF 

FFFCCCFFFFFFFFFF 

FFF793FFFFFFFFFF 

FFF34CFFFFFFFFFF 

FFF111FFFFFFFFFF 

8FFFCCCFFFFFFFFFF 

IX 

FFF1E0FFFFFFFFFF 

CFFFCFDFFFFFFFFFF 

e 

SEFF343FFFFFFFFFF. 

>FFFC4DFFFFFFFFFF 

3 

2EFF36BFFFFFFFFFF 

0FFFCCCFFFFFFFFFF 

0 

EFF4F9FFFFFFFFFF 
rFFFDCCFFFFFFFFFF 
T 

,EFFB1BFFFFFFFFFF 

0FFFCDCFFFFFFFFFF 

0 

EFF30BFFFFFFFFFF 

rFFFC4CFFFFFFFFFF 

SEFF62BFFFFFFFFFF 

♦FFFCCCFFFFFFFFFF 

1 

0 0 0 0 0 000000000 0 0 0 
0123456789 ABCDEF 
r0 0 0 cs> 0 0 0 0 0 0 0 0 0 cd 0 0 
D 0 CD 0 0 CD 0 0 0 Qv 0 0 0 0 <2? 0 
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これらをまとめる.と次のようになります。 


バイトのデータ 

(16 進） 

クラスタの使用状態 

8インチ両面の時 

〇〜9 9 


5インチ両面の時 

〇〜9 F 

使用中。連続したクラスタの一部であり，後続するクラスタを持つ。 

5インチ 2 DD の時 

〇〜9 F 

値が，後続するクラスタの番号を示している。 

5インチ片両の時 

0 —45 


8インチ両面の時 

C 1 〜 DA 

使用中。連続したクラスタの最後のクラスタであり，下5 (5 インチ 

5インチ両•片面の時 

C 1 〜 C 8 

の時は下 4) ビットの内容が，そのクラスタで実際に使われているセク 

5 インチ 2 DD の時 

C 1 〜 DO 

夕の数を表わす。 

FE 


予約ずみのクラスタで，ファイルとして使うことはできない 。 （DISK 



コード， IPL ， ディレクトリ， FAT 自身を含むクラスタがこれである。） 

FF 


未使用。 


7-2 DSKF 関数 

DSKF 関数は，ディスクファイルの構造に関する情報を返す関数で，機能を指定するによって, 
表 7-2 のような値が得られます。 


機能番号 

8インチ両面 

5インチ両面 

5インチ 2 DD 

5インチ片面 

機 能 

16進 

10進 

16進 

10進 

16進 

10進 

16進 

10進 

0 

4 C 

76 

27 

39 

4 F 

79 

22 

34 

片面あたりの最大トラック番号 

1 

1 A 

26 

10 

16 

10 

16 

10 

16 

1トラックあたりのセクタ数 

2 

01 

1 

01 

1 

01 

01 

00 

0 

片面……0，両面 . 1 

3 

01 

1 

02 

2 

01 

01 

02 

2 

1トラックあたりのクラスタ数 

4 

9 A 

154 

A 0 

160 

A 0 

160 

46 

70 

クラスタの総数 

5 

23 

35 

12 

18 

28 

40 

12 

18 

ディレクトリが格納されているトラック番号 

6 

1 A 

26 

08 

8 

10 

16 

08 

8 

1クラスタあたりのセクタ数 

7 

18 

24 

0 E 

14 

0 E 

14 

0 E 

14 

FAT の開始セクタ番号 

8 

1 A 

26 

10 

16 

10 

16 

10 

16 

FAT の終了セクタ数 

9 

03 

3 

03 

3 

03 

3 

03 

3 

FAT の個数 

10 

17 

23 

0 D 

13 

0 D 

13 

0 D 

13 

ID が格納されているセクタ番号 


表 7-2 DSKF 機能一覧表 
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7-3 標準ディスク 


7-3-1 フォーマッティング 

フロッピィディスクを初期化することを「フォーマッティングする」と言います。フォーマッティ 
ングのしかたには2段階あり，ひとつは「物理フォーマット」で，もうひとつは「システムフォー 
マット」です。 

① 物理フォーマット 

フロッピィディスクにサーフェス，トラック，セクタなどのアドレスを割り当てることを物理 
フォーマットと言います。市販されている8インチ標準フロッピィディスクは通常 IBM フォー 
マットと呼ばれる物理フォーマットが施されています。これは， PC -9881 用に NEC が供給してい 
る PC -9884 とは異なる物理フォーマットとなっています。 

② インターリーブ 13 とは？ 

一般的なディスクは，トラック上にセクタが1から26まで順番に並んでいますが，インター 
リーブ13でフォーマットしたディスクはセクタが1つおきになっています。第 i セクタの次が第 

14セクタ，その次が第2セクタ，その次が第15セクタ . と続いています。 PC -9881 を使用し 

て連続したセクタを読み書きする際には，非常に高速になります。 

あるトラックの第1セクタから第3セクタを続けて読む場合を例にとって考えます。ディスク 
のへッドが第1セクタを読みとった後，第2セクタを読みに行くまでの間にはいろいろな処理が 
必要で，セクタが順に並んでいる場合には，第2セクタを読みとろうとした時にはすでに第2セ 
クタの先頭がへッドを行きすぎてしまい，第2セクタがぐるっとトラックを1周してくるまで待 
つ必要があります。 

インターリーブ13のディスクでは，第1セクタの次は第14セクタですから，第14セクタが行 
きすぎるまで待てばその次の第2セクタが読めるという訳です。 

従ってこの形式の方がずっと速いということになります。ただし，これは Disk BASIC で読み 
書きする際にのみ当てはまります。 

次に示すプログラムは，この「インターリーブ•フォーマット」を行うものです。ドライブ2 
にフォーマットするディスケットを入れて実行して下さい。この用途には次のようなことが考え 
られます。 

• 市販の新しいディスケットを物理フォーマット。 

• CP / M -86 で使用していたディスケットを N 88 -Disk BASIC (86) で使う場合に再フォー 

マット0 

• その他の 0 S やデイスクシステムで使用していたディスケットを再フォーマット。 
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インターリーブ13フオーマツト 


1 sa^e Int し V 

100 / - 

丄 10 Interleave Id Format Program 

120 ^ - 

130 CONSOLE 0,25,0,0:UIDTH 80,25 

140 CLEAR ， & H1D00:DEF SEG=&H1D00:DEFINT A-Z:AD=0 

150 PRINT * Inter1ea^e 13 Formatting : " 

160 FOR 1=0 TO &HCFSREAD D$:POKE AD+I,VAL('&H"+D$):NEXT 
170 FORM13=0：PRINT 

180 PRINT "Place NEU diskette on DRIVE 2 and Press RETURN. 

190 LINE INPUT A$ 

200 INPUT "Sure (y/n) " ； A$ 

210 IF A$=V" OR A$="Y B OR A$= , > ， * THEN 220 ELSE END 

220 ' - Format Start - 

230 PRINT "Now formatting •••_ 

240 CYL=0 ： SF=0:DU=0:GOSUB *F0RMJR:IF STS く >0 THEN ^FORM.ERR 
250 FOR 1=1 TO 76 

260 CY し =IiSF=0:DW=l:GOSUB ^FORM.TR:IF STS<>0 THEN 关 FORM•ERR 

270 NEXT 

280 FOR 1=0 TO 76 

290 CVL=I ： SF=i:DU=l：GOSUB *F0RM.TR：IF STS<>0 THEN ^FORM.ERR 
300 NEXT 

310 PRINT "Interleave 13 Format Complete." : END 

320 ’ - Call Sub - 

330 *F0RM,TR 

340 CALL F0RM13(STS,CYL,SF,DU) 

350 RETURN 
360 ^FORM.ERR 

370 PRINT 'Format Error : Track=" ； CYL；" Surface=•;SF:END 
380 - Machine Code - 

390 DATA 8B,4F,0A,8E,Cl,8B,77,08,26,8A,24,8B,4F,06,8E,Cl 
400 DATA 8B, 77,04 ,26,8A,34,8B,4F,02,8E,C1,8B,37,26,8A,14 
410 DATA 53,8A,DC,0E,07,BD,68,00,B9,1A,00,8B,F5,26,88,1C 
420 DATA 26,88 ,74,01,26,88,54, 03,83, C6,04,E0,F0,8A,C2,0A 
430 DATA C0,75,05,B8,91,1D,EB,03,B8,91,5D,8A,CB,8A,EA,BB 
440 DATA 68,0 0,B2,40,CD,IB,5B,72,03,B8,00,00,8B,4F,0E,8E 
450 DATA Cl,8B,77,0C,26,89,04,CF, 00 ， 00 ,01,00,00,00,0E,00 
460 DATA 00,00,02,00,00,00,0F,00,00,00,03,00,00,00,10,00 
470 DATA 00,00,04,00,00, 00 ， 11,00,00 ， 00, 05,00,00,00,12,00 
480 DATA 00•00 ， 06 ， 00 ， 00 ， 00 ， 13 ， 00 ， 00 ， 00 ， 07 ， 00 ， 00 ， 00 ， 14 ， 00 
490 DATA 00,00,08,00,00,00,15,00,00,00,09,00,00,00,16,00 
500 DATA 00,00,0A, 00 ， 00, 00,17, 00 ， 00, 00,0B,00,00,00,18,00 
510 DATA 00,00,0C,00,00,00,19,00,00,00,0D,00,00,00,1A,00 


③システムフォーマット 

物理フォーマットを行うと，サーフェス，トラック，セクタが割り当てられるため， N 88 -Disk 
BASIC(86) の DSKI$，DSKO$ で読み書きができるようになります。例えば，ドライブ1のサー 
フェス1，トラック2，セクタ3を読むには，次のようにします。 


10 FIELD# 0,128 AS A$,128 AS B$ 
20 DM$=DSKI$(1,1,2,3) 

30 PRINT A$;B$ 

40 END 
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save •INT13.RND" 

' - Prepare Data - 

A1$=STRING$(128/A_) 
B1$=STRING$(128,"B") 

INPUT "No of data '；MX 

' - Write Data - 

TIME$= B 00 ： 00 ： 00 B 
OPEN ， 2 ； demo2" AS #1 
FIELD #1,128 AS A$,128 AS B$ 
LSET A$=A1$ 

LSET B$=B1$ 

FOR 1=1 TO MX 
PUT #1,1 
NEXT I 
CLOSE #1 
PRINT TIME$ 

’ - Read Data - 

TIME$='00S00 ： 00 ， 

OPEN - 2 ： demo2" AS #1 
FIELD #1,128 AS A$,128 AS B$ 
FOR 1=1 TO MX 
GET #1,1 
NEXT I 
CLOSE #1 
PRINT TIME 丰 
END 


シーケンシャルフアイル 

” A ” の文字列255文字を1つのデータとして，シーケンシャルファイルに書き出し，読み込み 
ます。データの数は， RUN したときに入力してください。 


しかし，物理フォーマットだけでは， N 88 -Disk BASIC (86) の SAVE , LOAD , ファイル処理 
( OPEN , PRINT # 1 , GET # 1, PUT # 1, CLOSE ) などができません。これは， N 88 -Disk BASIC 
(86) がそれらの処理を行ううえで必要な管理情報がないためです。この管理情報を記録するた 
めに， FAT , ディレクトリ， ID の初期化が必要で，これをシステムフォーマットと呼びます。こ 
れは物理フォーマットに対して，ソフト的なフォーマットです。 

PC -9884 に入っている format.n 88のプログラムは，このソフト的なフォーマットを行うもの 
です。 

④サンプル•プログラム 

N 88 -Disk BASIC (86) でインターリーブ • フォーマットしたものと通常のものを比較してみる 
と，読み書きにかなりの時間の差がみられます。次にデータをシーケンシャルファイルとランダ 
ムファイルに読み書きするプログラム例をあげます。 

ランダムファイル 

” A ” の文字列128文字と” B ” の文字列128文字を1つのデータとして，ランダムファイルに 
書き出し，読み込みます。データの数は， RUN したときに入力してください。 


,0000000000000000000000000 

0123456789012345678901234 

11111111111222222222233333 
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sa^e l INT13.SEQ ， 

' - Prepare Data - 

A$=STRING$(255,'A_) 

INPUT "No* of data "；MX 

' - Write Data - 

TIME$= - 00:00:00- 

OPEN a 2 ： demol" FOR OUTPUT AS #1 

FOR 1=1 TO MX 

PRINT #1,A$ 

NEXT I 
CLOSE 转 1 
PRINT TIME$ 

' - Read Data - 

TIME$="00:00:00 ， 

OPEN "2 ： demol" FOR INPUT AS #1 
FOR 1=1 TO MX 
INPUT #1,A$ 

NEXT I 
CLOSE #1 
PRINT TIME$ 

END 


⑤読み書きテスト結果 


ランダム 


通 常 

インターリーブ 13 

倍率 

データ数 100 

WRITE 17 秒 

16 秒 

1.06 

READ 17 秒 

1 秒 

17.00 

データ数 200 

WRITE 34 秒 

19 秒 

1.79 

READ 34 秒 

3 秒 

11.33 

データ数 300 

WRITE 51 秒 

22 秒 

2.32 

READ 51 秒 

5 秒 

10.20 


/ 0 QV 一〇 CD 0 0 CD CD CS 05 0 0 C5 0 cs 0 0 cs 

01123456789012345678 

111111111111222222222 
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シーケンシャル 


通 常 

インターリ ーブ 13 

倍 率 

データ数 100 

WRITE 43 秒 

26秒 

1.65 

READ 17 秒 

18秒 


データ数 200 

WRITE 1 分 27 秒 

55秒 

1.58 

READ 34秒 

36秒 


データ数 300 

WRITE 2 分 13 秒 

1 分 24 秒 

1.58 

READ 52 秒 

54秒 



プログラムの SAVE • LOAD 


通 

常 

インターリーブ13 

倍率 

4クラスタのプログラム（約 20 K ) 

SAVE 

34秒 

14秒 

2.42 

LOAD 

14秒 

1秒 

14.00 


7-3-2 ディスク BIOS コマンド 

8インチフロッピイデイスクは ， ^PD 765 A フロッピィディスクコントローラ （ FDC ) により制 
御されています。データ転送は , DMA (Direct Memory Access ) によって行われ，フロッピィディ 
スクに対するデータの読み書きは DMA 制御部を用い，て行われます。 

この節では，8インチ•ディスクの BIOS (基本入出力）コマンドとその使い方を説明します。こ 
れらのコマンドは ；/PD 765 A を直接コントロールしていますので， N 88 -Disk BASIC (86) では困難 
な，あるいは不可能な処理ができるようになります。 

①概 要 

まず，通常ユーザーが使う BIOS コマンドの一覧を示します。 
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8 インチ • ディスク BIOS コマンドー覧表 


No . 

コマンド名 

機 能 

1 

リード I D 

トラック上のエラーのない ID を読み取る 

2 

リードデータ 

ディスク上のデータを読み取る 

3 

ライトデータ 

ディスク上にデータを書き込む 

4 

シーク 

シリンダにアームを移動しへッドを選択する 

5 

フォーマット 

1トラック分のセクターフォーマッティングを行う 


次に，ディスク BIOS コマンドを使用するうえでの用語とコマンドの一般形式について説明し 
ます。 

• シリンダとヘッド 

シリンダとは，両面ディスケット上の〇〜76までのトラックのことをいいます。 

両面ディスクのラベルを貼る面は1面であり，反対側は0面となっています。なお片面ディス 
ケットの場合は0面しか使いません。このことを図で表わすと次のようになります。 


く両面デイスケット〉 

/ I 面トラック76 


〈片面ディスケット〉 


〆 


1面トラック0 



/ 

\ 


个 




\〇面トラック76 

^0面トラック0 


シリンダ76 


シリンダ0 


0面トラツク76 


0面トラック0 


ヘッドは，データを読み書きするもので，ヘッド番号は両面ディスケットでは〇か1(〇面 
か1面）であり，片面ディスケットでは常に0です。 

このシリングとヘッドにより，どの物理トラックをアクセスするかが決定されます。これは, 
N 88 -Disk BASIC (86) のサーフェス（面）とトラックによる指定と同じです（次表参照)。 
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サーフェス.トラックとへッド•シリンダの対応表 


N 88 -Disk BASIC (86) 

ディスク BIOS 

クラスタ番号 

サーフヱス 

トラック 

ヘッド 

シリンダ 

0 

0 

0 

0 

0 

1 

1 

0 

1 

0 

2 

0 

1 

0 

1 

3 

1 

1 

1 

1 

4 

0 

2 

0 

2 

5 

1 

2 

1 

2 

15 0 

0 

7 5 

0 

7 5 

151 

1 

7 5 

1 

7 5 

15 2 

0 

7 6 

0 

7 6 

15 3 

1 

7 6 

1 

7 6 


• セクタ長 

1セクタに何バイトを記録するかを表わすもの(セクタ当りのバイト数)がセクタ長と呼ばれま 
す0 8インチ•デイスケットでは単密度•惜密度に分かれ，それぞれ次のようになっています。 



セクタ長指定 

セクタ当りのバイト数 

最終セクタ 

備 考 


0 0 

12 8バイト 

2 6 

IBM 1 型 

単密度 

01 

2 5 6バイト 

15 

N 88 -Disk BASIC (86) ( 0ヘッド，〇シリンダのみ） 


0 2 

512バイト 

8 



01 

2 5 6バイト 

2 6 

IBM 2 D 型， CP / M -86, N 88 -Disk BASIC (86) 

倍密度 

0 2 

512バイト 

15 

IBM PC 準拠 


0 3 

10 2 4バイト 

8 

MS-DOS 


これを簡単にまとめると下図のようになります。 


セクタ長指定 

0 0 

01 

0 2 

0 3 

セクタ長（バイト/セクタ） 

12 8 

2 5 6 

512 

10 2 4 
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• 旧情報 

ディスク媒体には物理フォーマット時に各セクターを物理的に識別するための領域が書き込 
まれており，この領域を ID と呼びます。 ID には，シリング番号，ヘッド番号，セクタ番号， 
セクタ長が記録されています。これらをあわせて ID 情報といいます。 

• デバイス種別•ユニット番号 

フロッピィディスクの種別（タイプ）とユニット番号（ドライブ番号）は次のようになって 
います。 


デバイスタイプ 

ドライブ番号 

1 

2 

3 

4 

8インチ 

9 0 H 

91 H 

9 2 H 

9 3 H 

5インチ 

5 0 H 

5 1 H 

5 2 H 

5 3 H 

5インチ 2 DD 

7 0 H 

7 1 H 

7 2 H 

7 3 H 


參データ長 

実際に読み書きするデータの長さ（バイト単位）をデータ長といいます。 

長い前置きでしたが，以上のことを理解しているとディスク BIOS コマンドが楽々と使えます。 
さて，いよいよ各コマンドの使い方に入ります。 

②リード旧 

ID 情報の読み出しを行います。これは指定されたトラック上で最初に正常に読み取れた ID を 
ID 情報として対応レジスタに格納します。これにより，各トラックがどういうフォーマットに 
なっているかが分かります0各レジスタには次のようにセットし，インタラプトコール ( INT 1 
BH ) を行います。 


AH <-5 AH (倍密度） 

1 AH (単密度） 

AL <- 9 0 H 〜 9 3 H (ドライブ1〜 4) 

CL < - 〇〜7 6 (シリンダ番号） 

DH <- 〇〜1 (へッド番号） 

正常終了すれば， CF が0となり次の各レジスタに ID 情報が格納されます。 
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CL < -シリンダ番号 

CH <-セクタ長 

DL <-セクタ番号 

D H < -ヘッド番号 

異常終了すれば， CF が1となり AH に次のようなエラーステータスが入ります。 


AH の内容 

エラーの 内容 

4 0 H 

デバイスが異常 

6 0 H 

ュニットがレディの状態でない 

C 0 H 

正しい I D が見つからない 

E 0 H 

正しい I D が見つからず，しかも I D アドレスマークが1回も検出 


されなかった 


それでは， N 88 -Disk BASIC (86) のデイスケットを対象にして具体例をあげましょう。 

• 〇ヘッド，〇シリンダの ID を読む 

このトラックは単密度で，セクタ長128バイトになっています。ドライブ1にディスケットが 


あるものとします。 




0000 B 41 A 

MOV 

AH ,1 A ; 

単密 

0002 B 090 

MOV 

AL ,90; 

ドライブ 1 

0004 B 100 

MOV 

CL ,00； 

シリンダ 0 

0006 B 600 

MOV 

DH ,00； 

ヘッド 0 

0008 CD 1 B 

INT 

IB ; 

コール 

000 A CF 

IRET 




これはモニタモードで入力して，実行してみて下さい。 X コマンドで各 レジスタの 値とフラグ 
の内容が一目で分かります。 

結果は次のようになります。 


C L = 0 

; シリンダ0 

CH = 0 

; セクタ長 （128 バイト） 

DL 二1 

; 1セクタ 

DH 二0 

; ヘッド0 
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CF , AH も 0 で正常終了しています。 

こんどは単密モードでへッド1,シリング0を読んでみましょう。 

MOV DH , 01 H とするだけで良いですね。 

すると， CF が1となり， AH に E 0 H が入ります。正常に読めていないことが分かります。こ 
こは倍密になっているためです。そこで， MOV AH , 5 AH としてみましょう。これなら正常耔 
了します。そして， CH の値が1となり，セクタ長が256バイトであることを表わしています。 

このリード ID で， IBM フォーマットや CP / M -86, MS-DOS などのディスケットの ID 情報 
を読んでみるとそれぞれの フす ーマットが分かります。 

③リードデータ 

指定ドライブの任意の開始セクタからメモリ領域に指定された長さ（データ長，バイト単位） 
だけ データを 読み出します。 

各レジスタを次のようにセットし，インタラプトコール (INT 1 BH ) を行います0 

AH < —— 5 6 H (倍密度） 

16 H (単密度） 

AL <- 9 0-9 3 H (ドライブ 1 〜 4) 

BX <- リードするデータ 長（バイ ト 数） 

CL <- 0-7 6 (シリンダ番号） 

DH <- 〇〜1(へッド番号） 

DL < - 1 〜 2 6 (開始セクタ） 

CH <- 0-3 (セクタ長，128〜102 4) 

ES : BP <-データ格納の先頭アドレス（偶数番地にすること） 

正常終了すれば CF が0となり， ES (セグメントアドレス）， BP (オフセットアドレス）が示す 
データ バッファ 領域先頭アドレスからデータ長分だけデータが格納されます。 

異常終了すれば， CF が1となり AH に次ページのように エラー ステータスが入ります。 
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AH の内容 

エラーの内容 

2 0 H 

メモリアドレスがパンクにまたがっているか，奇数番地からはじま 


るように指定している 

3 0 H 

1回の転送容量を越えてデータ長を指定している 

4 0 H 

デバイス異常 

5 0 H 

一定時間内にデータ転送を終了できない 

6 0 H 

ユニットがレディ状態ではない 

A 0 H 

I D 読み出し時に CRC エラーが発生した 

C 0 H 

トラック内に指定されたセクタが見つからない 

E 0 H 

上記に加え， ID が1個も見つからない 


N 88 -Disk BASIC (86) の 8 インチの IPL を読んでみることにして具体例を示しましょう 。 IPL 
は，ヘッド0，シリンダ0，セクタ1〜4に入ってることになっています（実際はセクタ1だけ 
にしか入っていません）。 


0000 

B 80018 

MOV 

AX, 1800 


0003 

8EC0 

MOV 

ES,AX 

セグメント 180 OH 

0005 

BD0000 

MOU 

BP, 0000 

オフセット 0 

0008. B416 

MOV 

AH,16 

単密 

000A 

B090 

MOV 

AL,90 

ドライブ 1 

000C 

BB0002 

MOV 

BX,0200 

128 バイト X 4 セクタ 

000F 

B100 

MOV 

CL, 00 

シリンダ 0 

0011 

B600 

MOV 

DH,00 

ヘッド 0 

0013 

B201 

MOV 

DL,01 

開始セクタ 1 

0015 

B500 

MOV 

CH，00 

セクタ長 128 バイト 

0017 

CD1B 

INT 

IB 



上記を実行後，セグメント1800 H , オフセット 0 H から逆アセンブルしてみると IPL がどうい 
うことをしているかが分かると思います。 

次に本当にリードしたかどうかが一目で分かるところを読んでみましょう。それはディレクト 
リです。これは，ヘッド0，シリンダ35 (23 H ), セクタ1〜22にあります。 

変更する点は次のとおりです。 


MOV AH, 56 ;倍密 

MOV BX, 1600: 256 バイト X 22 セクタ 

MOV CL, 23 ;シリンダ 35 (10 進数 ) 

MOV CH,01 ;セクタ長 256 バイト 
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モニターモードで C 1800〔 RET 〕， EO 〔 RET 〕 とすると，ディレクトリがちゃんと転送されて 
いることが分かります。 


④ライト データ 

ドライブ，開始セクタを指定し，データバッファ領域の先頭アドレスとデータ長を指定すれば， 
その内容を指定のディスクアドレスに書き込みます。 

各レジスタを次のようにセットし，インタラプトコール (INT 1 BH ) を行います0 

AH <- 5 5 H (倍密度） 

1 5 H (単密度） 

AL < - 9 0 H 〜 9 3 H (ドライブ 1 〜 4) 

BX <-ライトするデータ長（バイト数） 

CL <- 0-76 (シリンダ番号） 

DH ^- 〇〜1 (へッド番号） 

DL <- 1-26 (開始セクタ） 

CH <- 〇〜3 (セクタ長，128〜102 4) 

E S ： B P < - データバッファ 領域の先頭アドレス（偶数アドレスにすること） 

CF が0で正常終了，1で異常終了となります。異常の場合， AH にはリードデータのときと同 
じ エラー ステータスが 入りますが，1 つ 追加されています。 


AH の内容 

エラーの内容 

7 0 H 

ライトプロテクトがかかっていた 


それではサンプルとして，アスキーコード0〜255の256バイトをヘッド1,シリンダ〇の1セ 
クタ目に書き込んでみましょう。ここは未使用になっている部分です。このテストには壊れても 
良いようなディスケットを用いて下さい。万一，大切なデータが消えることにもなりかねません 
ので。 
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B410 

MOV 

AH,10 

シーク動作 

B090 

MOV 

AL,90 

ドライブ 1 

B123 

MOV 

CL, 23 

シリンダ 

CD1B 

INT 

IB 

:コール 


なお，シリンダ〇へ シークす る コマン ドも用意されています。 


0000 B 80018 

MOV 

AX, 1800 


0003 8EC0 

MOV 

ES,AX 

セグメント 1800 H 

0005 BD0000 

MOV 

BP, 0000 

オフセット 0 

0008 30C0 

XOR 

AL,AL 

AL= 0 

000A B 90001 

MOV 

CX,0100 

256 バイトのデータ 

000D 31DB 

XOR 

BX,BX 

BX=0 

000F 26 

ES: 



0010 8807 

MOV 

[BX],AL; AL=0 〜 255 

0012 FEC0 

INC 

A し 

:アスキーコードを杉 

0014 43 

INC 

BX 


0015 E2F8 

し 0 OP 

000F 


0017 B455 

MOU 

AH ,55 

倍密 

0019 B090 

MOV 

AL,90 

ドライブ 1 

001B BB0001 

MOV 

BX,0100 

256 バイト書き込み 

001E B100 

MOU 

CL,00 

シリンダ 0 

0020 B601 

MOV 

DH,01 

ヘッド 1 

0022 B201 

MOV 

OL,01 

開始セクタ 

0024 B501 

MOV 

C « # 01 

セクタ長 256 バイト 

0026 CD1B 

INT 

IB 

コール 

⑤ シーク 





ドライブとシリング物理番号を指定するとそこまで，読み書きヘッドをシーク（移動）させま 
す。前出のリード•ライト用の BIOS コマンドはシーク動作を同時に行うことができるようになつ 
ており，使用例はすべてシーク動作も行うように指定しています。 BIOS コマンド識^コードの5 
ビット目 （10 H ) を1にするとシーク動作を行い，0にすると現在のシリングを対象とした動作 
を行います。 

各レジスタを次のようにセットし，インタラプトコール (INT 1 BH ) します。 


AH 一 

— 1 0 H 

5ビット目をオン 

AL 一 

— 9 0 H 〜9 3 H 

ドライブ1〜4 

CL 一 

— 〇〜7 6 

シリンダ番号 


終了条件は前出のもとのと同じです。 

次にディスクの FAT のところにシークする例をあげます。 FAT はヘッド0,シリング 35(23 
H ) にあります。 


0 2 4 6 
0 0 0 0 
0 0 0 0 
0 0 0 0 
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B407 m\J AH,07 ; シリンダ 0 ヘシーク 

B090 MOV AL,90 : ドライブ 1 

CD1B INT 1B ; コール 


このシーク動作は，シリング物理番号0の方向へ，1シリングずつシークし，トラック0信号 
を検出するまでくり返します。 

⑥フォーマット 

1トラック分のセクタ長，トラック当たりのセクタ数，データ部に書き込むデータパターンな 
どに従って物理フォーマッティングを行います0 
各レジスタを次のようにセットし，インタラプトコール (INT 1 BH ) します0 

AH <- 5 DH (倍密度） 

1 DH (単密度） 

AL <- 9 0 H 〜 9 3 H (ドライブ1〜 4) 

BX ^ - データの バイト量 （4 バイト X セクタ数） 

CH <- 〇〜3 (セクタ長，128〜 1024) 

CL <- 〇〜7 6 (シリンダ番号） 

DH <- 〇〜1 (へッド番号） 

DL <- データパターン（通常 40 H 、、@") 

ES ： BP <- データバッファ 領域先頭 アドレス 

セクタの ID 部にデータを書き込むときには次のようにシリング，ヘッド，セクタ，セクタ長の 
4バイトの情報をトラックのセクタ数分だけ用意しておく必要があります。 


0 2 4 
0 0 0 
0 0 0 
0 0 0 
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ES : BP 



セクタシーケンスに従った論理セクタ番号 
⑴26セクタ/トラックの場合 


物理セクタ 
セクタ番号 (16) 
シーケンス (16) 

0102 03 04 05 06 07 08 09 0 A OB 0 C 0 D 0 E OF 101112131415161718191 A 

00，01 

CP / M -86 

物理セクタ番号と同じ 

0 DH 

BASIC 

インターリーブ13 

01 0 E 02 0 F 0310 04110512 0613 0714 0815 0916 0 A 17 0 B 18 0 C 19 0 D 1 A 


( M ) 8セクタ/トラックの場合 


物理セクタ 
セクタ^号 U 6) 
シーケンス （16) 

0102 03 04 05 06 07 08 

00，01 

MS-DOS 

物理セクタ番号と同 
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シリンダ 1 ヘッド2ク タ+番号「 セクタ長 

0020 00 01 [0 JJ 02 00 01 02 

0030 00 01 105] 02 00 01 06 


00 01 03 02 
00 01 07 02 


00 01 IMJ 02 
00 01[081 02 

し8セクタ 


なお， インターリーブ.フォーマッ トの節で紹介したプログラムのソースリスト（付録）を參照さ 
れるとより具体的な使用例が分かると思います。 

7-4 5インチ • ディスク 

7-4-1 概 要 

PC -9801 の5インチフロッピィディスク•インターフェイスは， PC - 8001， PC - 8801と同ーイン 
ターフェイスで，デバイスも PC -8031-1 W ， PC -8031-1 V , PC -8031-2 W ， PC -80 S 31を接続する 
ことができます。 

これらのデバイスは //PD 780および ROM (2 K)，RAM (16 K ) を内蔵したインテリジェント型 
であり， PC -9801 とは互いに/ ^ PD 8255 を介してデータのやりとりを行います。 

以下，5インチ.ディスクの BIOS コマンドとその使い方について説明します。 

7-4-2 ディスク BIOS コマンド 
①センス 

デバイスの指定ドライブの状態をステータスとして通知します。 AH に コマン ド識^コード04 
H を入れてドライブ番号を指定し， INT 1 BH を行います。 


それでは，ドライブ2にあるディスケットのシリング0,ヘッド1の部分（未使用）をフォー 
マットする例を示します。フォーマットは，単密度で1セクタ512バイト，1トラック8セクタ 
にするとします。 


0000 

B41D 

MOV 

AH,ID 

単密 

0002 

B091 

MOV 

AL,91 

ドライブ 2 

0004 

BB2000 

MOV 

BX,0020 

4 バイト X 8 セクタ 

0007 

B502 

MOV 

CH,02 

512バイト/セクタ 

0009 

B100 

MOV 

CL, 00 

シリンダ〇 

000B 

B601 

MOV 

DH,01 

ヘッド1 

000D 

B240 

MOV 

DL,40 

データパターン 

000F 

0010 

0E 

07 

PUSH 

POP 

CS 

ES 

セグメント 

0011 

BD2000 

MOV 

BP,0020 

オフセット 

0014 

CD1B 

INT 

IB 



2 2 
0 0 


189 








AH < - 0 4 H (センス） 

AL < - 5 0 H 〜53 H (ドライブ 1 〜 4) 

正常終了すれば CF が0となり， AH にステータス情報が次のように格納されます。 


AH の内容 

ステータスの意味 

X 0 

片面装置 

X 2 

両面装置•片面アクセスモード 

X 3 

両面装置 • 両面アクセスモード 

IX 

ライトプロテクト（シールでの） 


注） X は下位•上位の4ビットのことで無視する。 

異常終了すれば CF が1となり， AH が4 X でデバイス異常を示します。 

次に具体例としてあるディスクのドライブ1のステータスを調べてみましょう。 


MOV 

AH , 

0 4 H ; 

: センス 

MOV 

AL , 

5 OH ； 

: ドライブ 1 

I NT 

1 BH 

! 

: コール 


実行後， CF = 0で AH = 03 H となっていました。このディスタは両面装置で両面アクセスモー 
ドになっていることが分かります。ちなみに，プロテクトシールを貼って実行すると， AH 二 13 H 
となり，ライトプロテクトを検知しています。また，ディスクの電源を OFF にして実行すると, 
CF 二1で AH =40 H となり異常であることになります。 

②イニシャライズ 

デバイスのコントローラの初期設定を行います。このイニシャライズを行わないと他のコマン 
ド（センスを除く）は起動できません。 AH にコマンド識^コード 03 H を入れ， AL には次のよ 
うに設定して INT 1 BH とします。 
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〔 AL 〕 7 


4 


ドライブ 


例）すべて片面モードのとき 
すべて両面モードのとき 


片面モード 

0 

0 

0 

0 

両面モード 

1 

1 

1 

1 


50H 

5FH 


ドライブ 1 〜 4 をすベて片面モードにするには AL に 50H を入れ，すべて両面モードにする 
には 5 FH を入れます。またドライブ 1 • 2 を両面に 3 • 4 を片面にするには， AL に 53H を入 
れます。なお，このイニシャライズコマンドにはステータス表示はありません。 

では両面装置1台を使ってドライブ1を両面，ドライブ2を片面モードにイニシャライズして 
みましょう。 


MOV 

AH ， 0 3H 

イニシャライズ 

MOV 

AL, 51 H 

ドライブ 1—1 ， ドライブ 2 — 0 

I NT 

1 BH 

コー ル 


では，ドライブ1をセンスしてみます。 


MOV 

AH, 

0 4H 

: センス 

MOV 

AL, 

5 OH 

; ドライブ 1 

I NT 

1 BH 


; コー ル 


結果は AH が 03 H で両面装置の両面アクセスモードとなっています。こんどはドライブ 2 を 
センスしてみます。 

MOV AL, 51 H ； ドライブ 2 

結果は AH が02 H で両面装置の片面アクセスモードとなっています。無事イニシャライズさ 
れていたことになります。 
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③リードデータ 

指定したドライブの任意のセクタからデータを読み取りメモリに転送します。各レジスタを次 
のようにセットし， INT 1 BH を行います。 

AH <- 0 6 H (コマンド 獅 ij コード • リードデータ） 

AL < - 5 0 H 〜5 3 H (ドライブ1〜4)* 

BX <- 1- 4 0 9 6 (リードするバイト数） 

CL <- 〇〜3 4 (シリンダ番号：片面） 

〇〜3 9 (シリンダ番号：両面） 

D H <- 〇〜1 (へッド番号） 

DL <- 1〜16 (セクタ番号） 

ES ： BP <- データバッファ 先頭 アドレス 

正常終了すれば CF が0となり ES : BP が示すアドレスからデータが格納されます。 

異常終了すれば CF が1となり， AH にステータス情報が次のように入ります。 


AH の内容 

ステータスの 意味 

4 X 

デバイス異常 

2 X 

データパッファアドレスがバンクにまたがっているか奇数番地から 

始まるように指定している 

9 X 

一定時間内にデータを転送できない 

8 X 

リードエラー 


注） X は下位4ビットのことで無視する。 


それでは N 88 -Disk BASIC (86) の5インチ両面の IPL を読んでみましょう。 IPL は，ヘッド 
0,シリンダ0,セクタ1〜2に入っています。 


0000 

B406 

MOV 

AH, 06 

リードデータ 

0002 

B050 

MOV 

AL,50 

ドライブ 1 

0004 

BB0002 

MOV 

BX，0200 

2 セクタ分リード 

0007 

B100 

MOV 

CL, 00 

シリンダ〇 

0009 

B600 

MOV 

DH，00 

ヘッド 0 

000B 

B201 

MOV 

DL,01 

セクタ 1 

Q00D 

0E 

PUSH 

CS 


000E 

07 

POP 

ES 

ES=CS 

000F 

BD2000 

MOV 

BP, 0020 

オフセツト 20H 

0012 

CD1B 

INT 

IB 

コール 
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B405 

MOV 

B050 

MOV 

BBFF0F 

MOV 

B104 

MOV 

B600 

MOV 

B201 

MOV 

50 

PUSH 

B800A0 

MOV 

8EC0 

MOV 

58 

POP 

BD0000 

MOV 

CD1B 

INT 


AH,05 :ライ トデータ 

AL,50 ; ドライブ 1 

BX,0FFF ； 4095 バイト 
CL,04 ;シリンダ 4 

DH,00 ; ヘッド 0 

DL,01 ; セクタ 1 
AX ; AX を保存 

AX,A000 

ES,AX ; ES=A 000 H 
A v 

BP, 0000; オフセット 0 
IB : コール 


今度はデイレクトリを読んでみましょう。ディレクトリは，ヘッド1，トラック18,セクタ1 


〜 12 に 

あります。変更箇所は次のとおりです。 

MOV 

BX,0C00 ； 

256 X 12 バイトリード 

MOV 

CL, 12 : 

シリンダ 18 

MOV 

DH,01 ; 

ヘッド 1 

④ライトデータ 



指定したドライブの任意のセクタにメモリ上のデータを書き込みます。各レジスタを次のよう 
にセットし， INT 1 BH を行います。 


AH <- 

0 5 H 

(ライトデータ） 

AL <- 

5 0 H 〜 5 3 H 

(ドライブ1〜 4) 

BX <- 

1-4096 

(ライトするバイト数) 

CL <- 

〇〜 3 4 

(シリンダ番号：片面) 


〇〜 3 9 

(シリング番号：両面) 

DH <- 

〇〜 1 

(へッド番号） 

DL <- 

卜 16 

(セクタ番号） 

ES ： BP 

<- データ バ 

ッファ先頭アドレス 


正常終了すれば CF が 0となり ES : BP が 示すア ドレスからのデータが 書き込まれます。異常 
終了すれば CF が 1となり， AH にその ステータスが 格納されます。それは ③ リード データと 同じ 
です。 

PC - 9801のテキスト VRAM をディスクにライトしてみましょう。まずはその表示エリア（セ 
グメント A 000 H , オフセット〇〜 FFEH ) です。書き込むところは， へ、'; ド0,シリンダ4から 
です。 


02479 BDE1347 
000000001111 
000000000000 
000000800000 


193 











次にアトリビュートエリア（セグメント AOOOH ， オフセット200 0 H 〜 2 FFEH ) です0 
変更する部分は次のとおりです。 


MOV CL, 15 ; シリンダ 21 (10 進数 ) 

MOV BP, 2000 ；オフセット 200 OH 


このルーチンは，テキスト VRAM の内容をディスクにセーブしておくときに便利です。なお， 
AH の 05 H を06 H に変えてリードして実際に書き込まれているか確認してみて下さい。 

⑤フォーマット 

指定ドライブに入っているフロッピィディスケットをフォーマッティングします。これにより， 
ID のセクタシーケンスは01 H データ部はすべて FFH が書き込まれます。このコマンドの実行 
方法は次のとおりです。 


AH 一 

— 0 DH 

•, フォーマット 

AL 一 

——5 0〜5 3 H 

; ドライブ1〜4 

I NT 

1 BH 

: コール 


正常•終了条件は③ リードデータと 同じですが， エラーステータスの 2 X ，9 X はありません。 
ドライブ 2のデイ スケットをフォーマットしてみます。 


MOV 

AH, 00 ； 

フォ ー マット 

MOV 

AL,51 ； 

ドライブ 2 

INT 

IB 

コール 


⑥片面•両面アクセス 

両面装置のディスクに対して片面アクセスか両面アクセス（オペレーションモードという）の 
指示を行います。 

AH に 0 EH を入れ， AL は②イニシャライズと同じ設定をします。ドライブ1を両面アクセス 
モード，ドライブ2を片面アクセスモードにするには次のようにします。 


MOV 

AH,0E; 

セツ ト オペレ ー シヨンモ ー ド 

MOV 

AL,51 ； 

ドライブ 1 一 1, ドライブ 2 — 0 

INT 

IB ; 

コール 


なお， PC - 980 1 F の5インチ2 DD については，8インチの BIOS コールと同じで，ドライブ 
指定1〜4が 70 H 〜73 H となるだけです。 
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MAX = DSKF ( DN ,0) 

IF MAX=76 THEN DM$=DSKI$( DM,0,35,24) / — 
IF MAX=39 THEN DM$=DSKI$(DN,1,13,14) 

IF MAX=79 THEN DM$=DSK I $ ( DN, 0,40,14 ) 

IF MAX=34 THEN DM$=DSKI$(DN,18,14) 

FOR 1=0 TO MCL 

FA(I)=ASC(MID$(DM$,1+1,1)) 

IF FAC I )=255 THEN FR=FR+1 
NEXT I 


inch 
inch DS 
inch 2DD 
inch SS 


save r info.n88 
卜 lie Information 
DEFINT A-Z:CONSOLE 0,25,0,0 

UIDTH 80,25 ： CLS：PRINT ，， mm File Information mm H 
LOCATE 0,1：INPUT "CRT (c) or Printer(p) " ； CP$ 

IF CP$= M c M OR CP$="C" THEN F$="SCRN: M : GOTO *INPT 
IF CP$= h p # OR CP$= M P U THEN F$= M LPT1:“ : GOTO ^INPT 
LOCATE 0,1:PRINT SPACES(35):BEEP:GOTO 130 


*INPT 

INPUT _Dri リ e No. H ;DN$ ： DN=VAL(DM$):D=15:MCL=D3KF(DN,4)-1 
DIM FI$(D),EX$(D),AT$(D),CL$(D)*FA(MCL) 

OPEN F$ FOR OUTPUT AS #1 
FOR 1=0 TO15 

FIELD #0,1*16 AS DM$，6 AS FI$(I),3 AS EX$(I), 

1 AS AT$(I),1 AS CL$(I) 

NEXT I 


7-5 ディスク • ユーティリティ • プログラム 

ディスクの章のまとめとして，いままでの情報をプログラムに反映したディスク•ユーティリティ 
をいくつか紹介いたします。 

7-5-1 ファイルインフォメーション 

ディスケットにセーブされているすべてのファイルの情報を出力します。これにより，ファイル 
名，属性，マシン語ファイルのアドレスおよびクラスタロケーションとリンクの各情報が得られま 
す。なお，属性は次のような略語を用いています。 

BAS.BASIC ファイル 

AS C. アスキーファイル 

MAC . マシン語ファイル 

WTP . ライトプロテクト （Write Protect ) 

RAW. リードアフターライト （Read After Write) 

PRT . プロテクト （ Protect = P オプション） 

ファイルインフォメーション 


8 5 5 5 


/ 000000000 0 0000 00 0 00 0 00000 0 0 
01234567890123 4567890123456 
1111X1111 1112 2 2 2 2 2 C\| 2 2 2 3 3 3 3 3 3 00 
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PRINT : NN=0 

PRINT #1, H ====== DRIVE B ;DN;"======="; 

PRINT #1 / FREE 1 * ；FR 
PRINT #1, 

PRINT #1,"FI し E.NAME" ; TAB(11 );" ATTR M ;TAB(20) ； "ADDRESS" ； 
TAB(32);"LOCATION" 

PRINT #1,STRING$(45,"：CONSOLE 8，17 
FTEND=DSKF(DN,10)-1 
FOR S=1 TO FTEND 

IF MAX=76 THEN DM$=DSKI$(DN,0 ,35,5) 

IF MAX=39 THEN DM$=DSKI$(DN,1,18,S) 

IF MAX=79 THEN DM$=DSKI$(DN,0,40,S) 

IF MAX=34 THEN DM$=DSKI$(DN,18,S) 

FOR 1=0 TO15 
P=ASCCFI$(D) 

IF P=0 THEN ^NFILE 
IF P=255 THEN *FEND 
AT=ASC(AT$(I)) 

IF AT=0 THEN AT$= M ASC M :FT$=" " 

IF AT=1 THEN AT$=•MAC":FT$=.* M 
IF AT=&H10 THEN AT$= M ASC+UTP" : FT$= M H 
IF AT=&H40 THEN AT$= M ASC+RAU M :FT$= M " 

IF AT=&H80 THEN AT$= U BAS M :FT$="♦" 

IF AT=&H90 THEN AT$= H BAS+UTP H : FT$= M ." 

IF AT=&HA0 THEN AT$="BAS+PRT":FT $= u ノ 
IF AT=&HC0 THEN AT$="BAS+RAU H : FT$=\ " 

AD$=STRING$(9, a •") 

IF FT 李 ："*" THEN GOSUB *ADR 

PRINT #1,FI$(I);FT$;EX$(I) ； TAB(11);AT$; 

TAB(20) ； AD$ ； TAB(31); 

CL=ASC(CL$(I)) 

WHILE CL く &HC0 

PRINT #1," M ;RIGHT$( M 0"+HEX$(CL),2); 

CL=FA(CL) 

UEND 

PRINT #1/( # ;MID$(STR$(CL-&HC0),2); M )" 

对 nIFILE 

NN=NN+lsIF CP$=V OR CP$="P" THEN 740 

IF NN=15 THEN NN=0:PRINT ： 

INPUT "Press RETURN ",DMY$:PRINT 
NEXT I 
NEXT S 

*FEND 

CONSOLE 0,25,1,0:LOCATE 0,24:PRINT:END 
*ADR 

F2$=DN $+ "••"十 FI$(I)+EX$(I) 

OPEN F2$ FOR INPUT AS #2 

AD1$=RIGHT$( ，， 000 ，， +HEX$(CVI( INPUT$(2,2)) ),4) 

TMP!=CVI(INPUT$(2,2)) 

IF TMPK0 THEN TMP ' =TMP !+65536 ! 

AD2$=RI GHT$( •• 000 M +HEX$( TMP 丨 -1) ， 4) 

AD$=ADl$+ M -"+AD2$ 

C し OSE #2 : RETURN 


0 0 0 0 0 
7 8 9 0 1 
3 3 3 4 4 


000000000000000000000 0 0 
23456789012345678901234 
44444444555555555566666 


000000000 

567890123 

666667777 


— — — — — — — — - 6 0 r ! 

456789 012 0,i 34 5 6 
777778 8 8 0088888 
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出力例 


====== DRIVE 3 ======= FREE 138 

FILENAME ATTR ADDRESS LOCATION 


ABCD1 


ASC 


test2 

矢 

MAC 

0000- 00FF 

test3 


ASC+UTP 


test4 


ASC+RAU 


test5 

• 

BAS+UTP 


test7 

參 

BAS+PRT 


test8 

• 

BAS+RAU 


test6 

• 

BAS+UTP 


Mac 

*dat 

MAC 

0100-18FF 


49 48(2) 

4C(2) 

4D 4E(2) 

47 46(2) 

4F 50(1) 

45 44(1) 

5152(1) 

43 42(1) 

53 54 55 56(1) 


7-5-21 ファイル転送 

N 88 -Disk BASIC (86) のシステムデイスケットに入っているユーテイリテイプログラムの1つに 
v xfiles . n 88 ,/ というのがあります。これは，8インチ • 5インチ両面•片面のメディア間でプログ 
ラムやデータの転送ができるものです。しかしこれでは1枚のディスケットに入ってぃるすべての 
ものが，転送されてしまいます。そこで次に紹介するプログラムは，任意のプログラムやデータを 
1個ずつ転送します。 


ファイル転送プログラム 


1 save Tri 1 es.n88 

1000 ==== Tfi1es.n88 ==== 

1010 y 

1020 ’ Transfer One rile 
1030 " 

1040 Initialize 

1050 DEFINT A-Z 

1060 WIDTH 80,25 

1070 D=15：DIM F$(D),E$(D),A$(D) 

1080 FOR 1=0 TO15 

1090 FIELD #0,1*16 AS DM$,6 AS F 丰 （ 1),3 AS E$(I),1 AS A 丰 （ I) 

1100 NEXT I 

1110 FIELD #1,128 AS Xl$,128 AS Yl$ 

1120 FIELD #2,128 AS X2$,128 AS Y2$ 

1130 / 

1140 *START 

1150 PRINT m rnrnm Transfer One File mmm* : PRINT 
1160 INPUT "From Dri リ e No* _;FD$ : FD=VAL(FD$) 

1170 INPUT "To Dri^e No. ' ； TD$ : TD=VAL(TD$) 

1180 IF FD=0 AND TD=0 THEN ^TRANSEND 
1190 PRINT：INPUT "Ok (y or n) " ； 0K$ 

1200 IF 0K$=V" OR 0K$= , Y B THEN 1220 ELSE CLS : GOTO *START 
1210 / 

1220 CLS 

1230 PRINT し 」 ==Drive " ； FD；" === Free " ； DSKF(FD)：FILES FD : PRINT 

1240 PRINT '=== Dri リ e " ； TD； B === Free DSKF(TD):FILES TD 

1250 x 
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1260 PRINT:INPUT "Enter File Name to Transfer ";F$ 

1270 GOSUB ^FILNAME 

1280 DR=FD ： GOSUB ^SERCH :IF ER=1 THEN ER=0 : GOTO *START 

1290 A$=A$(I) / Attribute Set 

1300 GOSUB *TRANS 

1310 DR=TD:GOSUB *SERCH 

1320 GOSUB ^SETAT 

1330 / 

1340 PRINT FD ； ;TD;F$ 

1350 FOR TM=1 TO 5000 s NEXT TM 

1360 CLS : FILES FD : PRINT : FILES TD : GOTO *START 

1370 ^TRANSEND 

1380 PRINT •Completed" 

1390 END 
1400 / 

1410 ^FILNAME 

1420 P=INSTR(F$,"••):IF P<>0 THEN 1440 

1430 F1$=LEFT$(F$+SPACE$(6),6):F2$=MID$(F$+SPACE$(9),7,3) ： G0T0 1460 
1440 F1$=LEFT$(F$+SPACE$(6),P-1);F2$=MID$(F$+SPACE$(3),P+1,3) 

1450 F1$=LEFT$(F1$+SPACE$(6),6) ： F2$=LEFT$(F2$+SPACE$(3),3) 

1460 RETURN 
1470 ^ 

1480 ^ ===== File Search ===== 

1490 *SERCH 

1500 MAX=DSKF(DR,0) 

1510 IF MAX=76 THEN SE=22 ELSE SE=12 
1520 FOR S=1 TO SE 

1530 IF MAX=76 THEN D$=DSKI$(DR,0,35,S) 

1540 IF MAX=39 THEN D$=DSKI$(DR,1,18,S) 

1550 IF MAX=34 THEN D$=DSKI$(DR,18,S) 

1560 IF MAX=79 THEN D$=DSKI$(DR,0,40,S) 

1570 FOR 1=0 TO15 

1580 IF F1$=F$(I) AND F2$=E$(I) THEN RETURN 
1590 NEXT I 
1600 NEXT S 

1610 BEEP : PRINT ■*** File Not Found ***• 

1620 FOR TM=1 TO 2000 : NEXT TM : ER=1 : RETURN 
1630 x 

1640 ===== File Transfer ===== 

1650 *TRANS 

1660 OPEN FD$+"s"+F$ AS #1 
1670 OPEN TD$+ B :"+F$ AS #2 
1680 FOR R=1 TO L0F(l)iGET #1,R 
1690 LSET X2$=X1$ : LSET Y2$=Y1$ 

1700 PUT #2,R : NEXT R : CLOSE #1,2 
1710 RETURN 
1720 ^ 

1730 z ===== Set Attribute ===== 

1740 *SETAT 

1750 LSET A$(I)=A$ 

1760 IF MAX=76 THEN DSKO 丰 TD,0,35,S 

1770 IF MAX=39 THEN DSKO$ TD,1,18,S 

1780 IF MAX=34 THEN DSK0$ TD,18,S 

1790 IF MAX=79 THEN DSKO$ TD,0,40,S 

1800 RETURN 

1810 ' - 

1820 " === END OF SUBROUTINE === 
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7-5-3 ファイルネーム.ソート 


ディスケット内のファイルの数が多くなると目的のファイルを探すのが大変です。特に8インチ 
の場合は手間がかかりますが，次のプログラムでファイル名をソートしておけばすぐ見つけ出せま 

to 


1 ，save 'DIR.SRr 

100 DEFINT A-Z : DIM DDIR$( 160 ),DIR$(15) 

110 WIDTH 80,25:CONSOLE 0,25:CLS 
120 PRINT _***** DIRECTORY SORT 
130 PRINT 

140 INPUT " Target Drive No. = ■,TD 
150 PRINT 

160 INPUT _ Sure ? (y/n) ",A$：PRINT 
170 IF A$ く〉 'Y" AND A$<>V THEN BEEP : END 
180 x 

190 UNIT 

200 FOR 1=0 TO15 

210 FIELD #0,16*1 AS DUMMY$,16 AS DIR$(I) 

220 NEXT I 

230 MAXTRK=DSKF(TD,0) : DIRTRK=DSKF(TD,5) 

240 MAXDIR=DSKF(TD,4)-2 ： K=-1 
250 IF MAXTRK=76 THEN MAXDIR=MAXDIR - 1 
260 / 

270 ^GET.DIRECTORY 

280 FOR 1=0 TO DSKF(TD,l)-5 

290 IF MAXTRK=76 THEN D$=DSKI$(TD,0,DIRTRK,1+1) 

300 IF MAXTRK=39 THEN D$=DSKI$(TD,1,DIRTRK,1 + 1) 

310 IF MAXTRK=34 THEN D$=DSKI$(TD, DIRTRK,1+1) 

320 IF MAXTRK=79 THEN D$=DSKI $(TD,0,DIRTRK.I +1) 

330 FOR J=0 TO15 

340 IF ASC(DIR$(J))=255 THEN 400 

350 IF ASC(DIR$(J))=0 THEN 380 

360 K=K+1 

370 DDIR$(K)=DIR$(J) 

380 NEXT J 

390 NEXT I 
400 / 

410 CONSOLE 7,25 

420 PRINT STRING$(20,) ； CHR$(10)；"Now sorting ••ノ 

430 'SORT.DIRECTORY 

440 FOR I=K-1 TO 0 STEP - 1 

450 FOR J=0 TO I 

460 IF DDIR$(J)>DDIR$(J+l) THEN SUAP DDIR$(J),DDIR$(J+l) 

470 NEXT J 
480 NEXT I 
490 / 

500 C=0：FOR 1=0 TO K 

510 PRINT LEFT$(DDIR$(I),9) 

520 C=C+1：IF C=14 THEN C=0 ： PRINT ： 

INPUT "Press RETURN ',A$：PRINT 
530 NEXT I 
540 / 

550 PRINT : PRINT : INPUT "Rewrite Directory (y/n) " ； A$ 

560 IF A$<> B Y B AND A$<>V THEN *PEND 
570 / 

580 ^PUT.DIRECTORY 
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save "D-dump" 

7 - A1mighty Disk Dump - 

ON KEY GOSUB 900,910,920,930,940, 950 , 960 , 970 , 

980,990 

ON ERROR GOTO 1000 : ON STOP GOSUB 1020 
KEY 1,"Restart •: KEY 2,"Printer" jKEY 3,"CRT" 

KEY ON : STOP ON 

WIDTH 80,25:CONSOLE 0,25:DEFINT A - Z 
FIELD #0,128 AS A$(0),128 AS A 丰 （ 1) 

FIELD #1,128 AS A$(2),128 AS A$(3) 

PRINT _***** A1mighty Disk Dump Utility *****" 

PRINT " FUNCTION : F(ile or V(olume 
PRINT f - 1 key : Restart 

PRINT " f•2 key : Priter Output from Current Sector 

PRINT f - 3 Key : CRT Output from Next Sector 

PRINT STOP key : Cancel this Utility 

PRINT " When CRT Output 9 Press any to continue# 

PRINT 

INPUT "FUNCTION _;F$ 

IF F$=_| THEN 1020 ELSE F$=LEFT$(F$,1) 

IF F$="f # OR F$=T" THEN F$= B F" : GOTO 320 
IF 「 $=■ ゲ OR THEN : GOTO 510 

GOTO 260 

/ - FILE DUMP ROUTINE - 

INPUT 'FILE NAME " ； FIL$ 

IF FIL$=__ OR PF>0 THEN 1050 ^ - RESTART 

OPEN FI し $ FOR INPUT AS #1 JC し OSE #1:OPEN FIL$ AS #1 
PRINT "SECTOR COUNT ' ； LOF(l) 

INPUT 'START SECTOR ";STARTSECTOR 
IF STARTSECT0R>L0F(1) THEN 360 
R=1：IF STARTSECTORO0 THEN R=STARTSECTOR 
IF R> し OF(l) THEN 490 
し =2 


590 J=0 : SEC=1 : FOR 1=0 TO K : LSET DIR$(J)=DDIR$(I) 

600 J=J+1 : IF J=16 THEN GOSUB ^DISKUT : J=0 : SEC=SEC+1 

610 NEXT I : IF J=0 THEN *UTFF 7 -- Unite FFH -- 

620 UHILE J<16 : LSET DIR$(J)=STRING$(16,255) ： J=J+1 : WEND 

630 GOSUB ISKUT / - DISK Urite - 

640 *UTFF ： IF J く >0 THEN SEC=SEC+1 

645 IF MAXTRK=76 THEN MAXSEC=22 ELSE MAXSEC=12 

650 FOR I=SEC TO MAXSEC 

660 FOR J=0 TO15 : LSET DIR$(J)=STRING$(16,255) : NEXT J 
670 SEC=I : GOSUB ^DISKUT x — DISK Write --- 
680 NEXT I : UIDTH 80,25 : PRINT "Completed•" : FILES TD 

690 *PEND : CONSOLE 0,25 : END ' Program END --- 

700 ISKUT ’ - Directory Urite - 

710 IF MAXTRK=76 THEN DSKO$ TD,0,DIRTRK,SEC 

720 IF MAXTRK=79 THEN DSK0$ TD,0,DIRTRK,SEC 

730 IF MAXTRK=39 THEN DSK0$ TD,1,DIRTRK,SEC 

740 IF MAXTRK=34 THEN DSK0$ TD, DIRTRK,SEC 

750 RETURN 


7-5-4 オールマイティ • ディスク.ダンプ 

次のプログラムは，ディスクの任意のセクタかファイル名を指定すると，その内容をダンプする 
ものです。出力は1セクタごとに CRT と PRINTER の切り換えが可能です。 


0 0 0 0 0 0 0 0 0 0 0 0 
01 2345678901 

-IX ix IX IX ix 1i IX IX 


0 0 0 0 0 0 0 00000000 0 0 0 0 
23 - 456789010 ^ 34567890 
2222222233333333334 
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410 GET #1,R 
420 GOSUB 690 

430 WHILE L$<>"L' AND B$=__ AND PF=0 : B$=INKEY$ : UENDsB$= - " 

440 IF PF=1 THEN PF=0:CLOSE #lsGOTO 320 

450 IF PF=2 THEN PF=0:L$="L"：GOTO 420 

460 IF PF=3 THEN PF=0:L$= ，8 

470 R=R+1 

480 GOTO 390 

490 CLOSE #1 : GOTO 320 

500 ' - VOLUME DUMP ROUTINE - 

510 INPUT _(DR,SU,TR,SE) _;DR,SU,TR,SE 
520 IF DR く 0 OR DR>8 THEN BEEP : GOTO 510 

530 IF DR=0 OR PF>0 THEN 1050 ' - RESTART 

540 IF DSKF(DR,2)=0 THEN IF SU<0 OR SU>1 THEN BEEP:GOTO 510 

550 IF SU<0 OR SUM THEN BEEP : GOTO 510 

560 IF TR<0 OR TR>DSKF(DR,0) THEN BEEP : GOTO 510 

570 IF SE<1 OR SE>DSKF(DR,1) THEN BEEP : GOTO 510 

580 IF DSKF(DR,2)=0 THEN DUM$=DSKI$(DR,TR,SE) 

ELSE DUM$=DSKI$(DR,SU,TR,SE) 


590 L=0 

690 GOSUB 690 

610 WHILE L$<>"L" AND B$=" - AND PF=0:B$=INKEY$:UEND:B$=' 

620 IF PF=1 THEN PF=0：GOTO 510 

630 IF PF=2 THEN PF=0:L$= ， L"jGOTO 590 

640 IF PF=3 THEN PF=0 ： L$="" 

650 SE=SE+1:IF SE=<DSKF(DR,1) THEN 580 ELSE SE=1 

660 IF DSKF(DR,2)=1 THEN SU=SU+1：IF SU=1 THEN 580 ELSE SU=0 

670 TR=TR+1：IF TR=<DSKF(DR,0 ) THEN 580 ELSE 510 

680 /- DUMP SUBROUTINE - 

690 IF L $= •じ THEN OPEN "lptl：" FOR OUTPUT AS #2 
ELSE OPEN -scrn:_ FOR OUTPUT AS #2 
700 IF F$='F ， THEN PRINT #2,"FILE NAME = B ； FIL$; i 
RECORD NO = '；R 

720 IF F$=V THEN PRINT #2, • (DR,SU,TR,SE) = _ ;DR;SU;TR;SE 
730 PRINT #2," *0 *1 *2 *3 *4 *5 关 6 *7 *8 *9 •; 

740 PRINT #2,*B *C *D *E *F ■; 

750 PRINT #2," 0123456789 ABCDEF' 

760 FOR I=L TO L+l 
770 FOR J=0 TO 7 

780 I$=RIGHT 丰 （ •00-+HEX$(128*I+J*16),2) :H 丰 =■• :C$= - " 


790 FOR K=1 TO16 

800 D$=HEX$(ASC(MID$(A$(I),J*16+K,1))) 

810 H$=H$+RIGHT$("0 > +D$,2)+ ， " 

820 D$=MID$(A$(I),J*16+K,1)：IF ASC(D$)<32 OR 
ASC(D$)>247 THEN D$=\" 




830 C$=C$+D$ 

840 NEXT K : PRINT #2,I$5 ，1 
850 NEXT J 
860 NEXT I : ZZ=FRE(0) 

870 CLOSE #2 
880 RETURN 

890 / - FUNCTION KEY PROCESS ROUTINE 


900 

9.1.0 

920 

930 

940 

950 

960 

970 

980 


PF=1 

PF=2 

PF=3 

PF=0 

PF=0 

PF=0 

PF=0 

PF=0 

PF=0 


: UHILE 
JUHILE 
:UHI し E 
:UHILE 
: WHILE 
: UHILE 
;UHILE 
: WHILE 
: WHILE 


B$O b 
B$ く >■' 
B$O b 
B$<>' 
B$<>" 
B 丰 <>• 
B$<>" 
B 丰く 〉 _ 
B$ く 〉 ■ 


:B$=INKEY$ 
: B$=INKEY$ 
;B$=INKEY$ 
： B$=INKEY$ 
:B$=INKEY$ 
: B$=INKEY$ 
;B$=INKEY$ 
： B$=INKEY$ 
： B$=INKEY$ 


UEND 

UEND 

UEND 

UEND 

UEND 

UEND 

UEND 

UEND 

UEND 


■;C$; : PRINT #2, 


RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 







990 PF=0 : UHILE B$<>*' : B$=INKEY$ : WEND : RETURN 

1000 PRINT "ERROR CODE = "；ERR 

1010 IF ERR=53 THEN RESUME 320 ELSE 1020 

1020 CLOSE : CLEAR 

1030 KEY 1/load B +CHR$(34) sKEY 2/auto - : KEY 3/go to 
1040 END 

1050 CLOSE :CLEAR : RUN 


7-5-5 簡易ディスクエディター 

このプログラムによりディスクの任意のトラックの 1 セクタが画面上でエディ ッ トできます。エ 
デイツトは16進数で行い，そのチヱックサムとアスキーダンプがリアルタイムに表示されます。 


1 save D-edit•n88 

100 - Disk tditor 

110 x 


120 DEFINT A-ZjUIDTH 80,25:CONSOLE 0,25,1,0 
130 PRINT | ==== DISK EDITOR ====" 


140 

150 

160 

170 

180 

190 

200 


GOSUB *ADD 
INPUT 
INPUT 
INPUT 
INPUT 
PRINT 
PRINT 


210 PRINT USING 


"Dri^e 
"Surface 
"Track 
"Sector 
CHR$(12 )； 

===== DISK EDITOR 


rile Buffer Address 


No. 

No, 

No. 

No, 


D:IF D=0 THEN 关 PEND 
SR 


Drive # Surface # Track ## Sector ##_ 

;D ， SR ， T ， S 

•关 0 关 1 ^2 *3 ^4 *5 ^6 *7 ^8 *9 *D *E 关 F_ 

' — ASCII DUMP.; 


220 PRINT 
230 PRINT " SUM 
240 GOSUB ^DSKCHK 
250 GOSUB *DSKRD 
260 I=AD : PRINT 
270 SUM=0：FOR J=0 TO15 


275 K=PEEK(I+J):PRINT RIGHT$('0_+HEX$(K),2);" ■; 

280 SUM=SUM+KjNEXT J:PRINT • " ； RIGHT$("00* +HEX$(SUM),3)；' ■ 

290 FOR J=0 TO 15 ： K=PEEK(I+J) 

300 IF K<32 OR 10247 THEN PRINT ELSE PRINT CHR$(K); 

310 NEXT J:PRINT:I=I+16sIF I-AD<256 THEN 270 

320 /- Edit - 

330 CR$=CHR$(13) ： RT$=CHR$(28):LT$=CHR$(29) 

335 UP$=CHR$(30) : DN$=CHR$(31) 

340 N=0 ： M=0 

350 X=(N MOD 16)*3 ： Y=N ¥ 16+2 

360 LOCATE X,Y:K$=INPUT$(1):IF M=1 THEN 420 

370 IF K$=CR$ THEN *DEDIT 

380 IF K$=RT$ THEN N=N+ 1:IF N>255 THEN N=0 

390 IF K$=LT$ THEN N=N - 1:IF N<0 THEN N=255 

400 IF K$=UP$ THEN N=N-16： IF N<0 THEN N=N+256 

410 IF K$=DN$ THEN N=N+16： IF N>255 THEN N=N-256 

420 IF K$>=-0_ AND K$=<"9' THEN 450 

430 IF K$>=_a_ AND K$=<"f" THEN K$=CHR$(ASC(K$)-32)：GOTO 450 
440 ON M+l GOTO 350,360 

450 LOCATE X,Y:PRINT K$:IF M=0 THEN D$=K$ : X=X+1sM=1 : GOTO 360 
460 M=0 JD$=D$+K$ : K=VALC&H'+D$):POKE AD+N,K 
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save READ8.ID' 

SCREEN 0,0 : CONSOLE 0,24,1,1 : CLEAR ， & H1A00 : DEFINT A-Z 

PRINT 11 关关关关关 8 inch FD analyze 兴兴兴兴关 

PRINT 

DEF SEG=&H1A00 : FOR 1=0 TO &H78 
READ A$ : POKE I, V/A し （• &H_+A 丰 ）: NEXT 
DEF SEG=&H1B00 : FOR 1=0 TO &H79 
READ A$ : POKE I,VAL( i &H i +A$) : NEXT 


470 SUM=0：FOR 1=0 TO 15:SUM=SUM+PEEK(AD+(N ¥ 16)*16+1):NEXT 
480 LOCATE 49,Y：PRINT RIGHT$("00"+HEX$(SUM),3) 

490 LOCATE 54+N MOD 16,Y:IF K く 32 OR 10247 THEN PRINT 
ELSE PRINT CHR$(K) 

500 N=N+1:IF N>255 THEN 330 ELSE 350 
510 暇 DIT 

520 LOCATE 0,19：INPUT 'Edit OK (y/n) " ； 0K$ 

530 IF OK$='y" OR OK$="Y" THEN GOSUB *DSKUT 
540 GOTO 150 

550 ’ - Program End - 

560 *PEND 
570 END 

580 ' mmam Subroutines ■■■■1 

590 / - DISK READ - 

600 *DSKRD 

610 IF TP=1 OR TP=2 OR TP=4 THEN DM$=DSKI$(D,SR,T,S) 

620 IF TP=3 THEN DM$=DSKI$(D,T,S) 

630 RETURN 

640 x - DISK URITE - 

650 *DSKUT 

660 IF TP=1 OR TP=2 OR TP=4 THEN DSKO$ D,SR,T,S 
670 IF TP=3 THEN DSKO 丰 D,T,S 
680 RETURN 

690 ' - DISK TYPE CHECK - 

700 xDSKCHK 

710 MX=DSKF(D,0) ， Max Track 
720 IF MX=76 THEN TP=1" 8 inch 2D 

730 IF MX=39 THEN TP=2 " 5 inch 2D 

740 IF MX=34 THEN TP=3 ' 5 inch ID 

750 IF MX=79 THEN TP=4 x 5 inch 2DD 

760 RETURN 
770 " 

780 关 ADD 

790 AD=V/ARPTR(#0)+&H20 j S6=VARPTR( #0,1) : DEF SE6=SG 
800 AD=PEEK(AD)+PEEK(AD+1)*256 
810 RETURN 


7-5-6 8 インチ ID リーダー 


8 インチのディスケットの〇〜76シリンダの合計154本のトラックについて，それぞれ1セクタ 
の ID をリードする機能と特定のトラックの全セクタの ID を順次リードする機能があります。 

前者は，ディスク全体のフォーマット分析，後者は1トラック内での論理セクタ番号の付けられ 
方を詳細に解析する場合に使います。なお，ディスケットはドライブ2に入れてプログラムを実行 
して下さい。 


> 0 0 i 

0123456 

^ 11IX 111IX 
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170 PRINT "Print device 
180 PRINT 

190 INPUT _CRT or Printer (c/p) ? ",D$ 

200 PRINT 

210 PRINT "Function 

220 PRINT # t or T l Read ID from CC=0 to CC=76" 

230 PRINT "s or S « Read ID 26 times on specified CCH" 
240 PRINT "1 : Set single density mode" 

250 PRINT 

260 INPUT 'Select Function (t/s) ? _,F$ 

270 PRINT : IF F$=_r THEN GOSUB 590 : GOTO 260 

280 IF F$="t' OR F$=_T_ THEN *TRACK 
290 IFOR F$="S ， THEN ^SECTOR 

300 PRINT "Invalid Function Specified ' : BEEP : GOTO 260 

溫 nEG =& H!A 00 : CALL A 
330 E=76 ：GOSUB 430 

348 END 


350 ^SECTOR 


360 PRINT 'Enter Cylinder and Head Address. To end,enter 99, 
370 INPUT * CC = *,CC 

380 IF CC<0 OR CC>76 THEN IF CC=99 THEN END ELSE 370 
390 INPUT - H = *,H ：IF H< >0 AND HOI THEN 390 
400 DEF SEG=&H1B00 : CALL A(CC,H) 

410 E=26/2-1:GOSUB 430 

420 PRINT : GOTO 360 

430 ， - DUMP SUBROUTINE - 


440 

450 

460 

470 

480 

490 

500 

510 

520 


OPEN FF$ FOR 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


# 2 ,'" 
# 2 / 
#2,'AL 
# 2 ,' 
# 2 ," 


D$='P- THEN FF$=-LPT1〆 ELSE FF$=_SCRN:_ 
OUTPUT AS #2 

A し AH B し BH C し CH D し DH ■5 
AH B し BH C し CH D し DH B 

CC S し RR H "； 

CC S し RR H " 


FOR J=&H10 TO E+&H10 

H 丰二 " 


530 FOR K=0 TO15 

540 H$=H$+RIGHT$(■0•+HEX$(PEEK(J*16+K)),2) + • _ 

550 NEXT K : PRINT #2,_ ■ 

560 NEXT J 
570 CLOSE #2 
580 RETURN 

590 / - PATCH FOR SINGLE SIDE VOLUME - 

600 DEF SEG=&H1A00 

610 POKE &H6,&H1A : POKE &H58,&H1A : POKE &H63,&H10 
620 FOR I=&H64 TO &H6B : POKE I,&H90 : NEXT 
630 RETURN 

640 / - MACHINE CODE - 

650 DATA 8C,C8,8E,D8,B8,91,5A ， 33,DB,33,C9,33,D2,89, 87,00 
660 DATA 01,89 ,9F, 02 ， 01 ,89,8F, 04,01 ,89,97,06,01,CD,IB,73 
670 DATA 36,F6,C4,E0,75,1B,F6,C4,C0,75,16,F6,C4,60,75,00 
680 DATA 89,87 ,00,01,89,9F, 02,01 ,89,8F, 04,01 ,89, 97,06，01 
690 DATA CF,86,A 7,01 ,01,87,8F ， 04,01,87, 97 ， 06, 01,80,FC,1A 
700 DATA 74,DE,B4,1A,E9,B6,FF,B4,5A,87,8F,04,01,87,97,06 
710 DATA 01,83, C3,08,80 , C6,0*1,80 , FE, 01,74, A1,32, F6,80 , Cl 
720 DATA 01,80,F9,4D,7D,BA,E9,94,FF 

730 DATA C4 ! 77.04 ) 26,8A ? 0C,C4 ! 37.26 t 8A,34,8C t C8.8E t D8*B8 
740 DATA 91,5 A,33,DB,32,ED,32,D2,89,87,00,01,89,9F, 02,01 
750 DATA 89,8F,04,01,89,97,06,01,CD,IB,73,36,F6,C4,E0,75 
760 DATA 1B,F6,C4,C0,75,16,F6,C4,60,75,00,89,87,00,01,89 
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save "LOAD.HEX 
CLEAR,&H1800 
DEFINT A-Z:DIM C(3) 

INPUT "Intel HEX Format File name " ； F$ 

OPEN F$ FOR INPUT AS #1 

/ 

*INPUT*HEX.LECORD 

LINE INPUT #1,I.HEX*L$ 

C(0)=VAL(_&H'+MID$(I.HEX.L$,2,2)) 

C(1)=VAL(_&H_+MID$(I.HEX.L$,4, 4)) 

C(2)=VAL(_&H_+MID$(I.HEX.L$ > 8,2)) 

/ 

IF (C(2)>&H80) AND (CC2X&H85) THEN *DATA.POKE 
IF C(2)=0 THEN *DATA.P0KE 

IF C(2)=l THEN ^END.OF.FILE 

IF C(2)=3 THEN *STRT.AD.MK 

IF C(2)=&H85 THEN 

PRINT "absolute code segment" : GOTO *SET.SEG 
IF C(2)=&H86 THEN 

PRINT "absolute data segment" : GOTO ^SET♦SEG 
IF C(2)=&H87 THEN 

PRINT "expand stack segment" : GOTO ^SET.SEG 
IF C(2)=&H88 THEN 

PRINT "absolute expand segmentGOTO ^SET.SEG 

GOTO *INPUT.HEX.LECORD 

✓ 

*SET*SEG 

DEF SEG=VAL("&H'+MID$(I.HEX.L$,10,4)) 

〆 

*STRT.AD.MK 

LD•SEGMENT=VAL(•&H■+MID$(I•HEX•L$,10,4)) 

ST. ADDRESS=VAL.( '&H"+MID$( I.HEX.L$,14,4)) 

GOTO 关 INPUT.HEX • し ECORD 

*DATA.P0KE 

DTLEN=C(0):ADD=C(1) 

FOR 1=0 TO DTLEN-1 
PK.ADDRESS=ADD+I 

POKE PK.ADDRESS ，リ AL(■&H■+MID$(I•HEX•L$,2*I+10,2 ) 〉 
NEXT 


770 DATA 9F,02,01,89,8F,04,01,89,97,06,01,CF,86,A7,01,01 
780 DATA 87,8F,04,01,87,97,06,01,80,FC,1A,74,DE,B4,1A,E9 
790 DATA B6,FF,8A,A7,01,01,87,8F,04,01,87,97,06,01,83,C3 
800 DATA 08,81,FB,D0,00,7D,C4,E9,9E,FF 

7-5-7 インテル HEX ファイル•口ーダー 

市販のソフトに CP/M-86 で作った HEX ファイルを Disk BASIC のファイルに転送するもの 
があります。しかし転送しただけでは，メモリーに BLOAD することはできません。これはファイ 
ルフォーマットが異なっているためです。次のプログラムは，インテル HEX ファイルを読み込んで 
メモリにロードし，最後に BSAVE を行うものです。なお，このローダーでは単ーセグメントのプ 
ログラムを前提としています。 


/ 0 0 0 0 0 0 0 0 0 0 0 0 
0123456789 

1 1- IX 1IX 1 u IX ix 11 


0 0 ^5 0 0 0 

0 12 3 4 5 
2 2 2 2 2 2 


0 

6 

2 


0 

2 


0 0 0 0 0 0 0 0 0 0 00 0 0 0 0 0 
8 9012345678901234 
2 2333333333344444 
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450 GOTO ^INPUT.HEX,LECORD 
460 ^ 

470 关 END.OF.FILE 

480 CLOSE 1:PRINT "LOAD END !" 

490 PRINT "SEGMENT address ："； 

RIGHT$(( "0000 _+HEX$(LD.SEGMENT) + "HT ),5) 
500 PRINT "START address ."； 

RIGHT$((_0000 M +HEX 丰 （ S1\ADDRESS)+-H"),5) 
510 PRINT "END addressJ "； 

RIGHT$((" 0000 "+HEX$(PK.ADDRESS)+"H'),5) 
520 INPUT "Saving object code File name ' ； FS$ 

530 BSAVE FS$,ST.ADDRESS,PK.ADDRESS+1 
540 END 
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第 8 章プ 1 J ンタ出力 


8-1 画面コピー機能 

8-2 テキスト画面のコピー 

8 - 2-1 BASIC によるサブルーチン 
8-2-2 マシン語によるサプルーチン 

8-3 カラーブラフイツクコピー 
8-3-1 640 x 200 モード 
8-3-2 640 x 400 モード 

8-4 アセンブリ言語によるプリンタ出力 

8-4-1 イニシャライズ 
8-4-2 1バイト出力 
8-4-3 複数バイト出力 

8-5 PRINT / LPRINT ぁれこれ 

8-5-1 出カデバイス名の変更 
8-5-2 切り換えルーチンを作る 
8-5-3 内部ルーチンを利用する 
8-5-4 未使用コマンドでの切り換え 




sa^e "SC.dmo" 

f Screen Copy Demo 1 •••640 x 200 
CONSOLE 0,25,0,0 : UIDTH 40,25 :SCREEN 0,0 
CLS 3 : LOCATE 7,8：PRINT * Screen Copy Demo 
X=120 ： Y=100 

FOR 1=1 TO 9 : READ KC$ : KC=VAL("&H■+KC 多） 
PUT (X,Y),KANJI(KC) 

X=X+20 
NEXT I 
LOCATE 7,10 
PRINT • 画面コピー DEMO_ 

LOCATE 7,16 

PRINT • フ 0 リンタアウトフ 0 , 卜 ' 


第8章プリンタ出力 

8-1 画面コピー 機能 

N 88 - BASIC (86) は， COPY 文と COPY キーにより，画面上に表示されている文字やグラフィッ 
クをプリンタに出力する機能を持っています。 

テキスト画面（文字，漢字）およびグラフィック画面 （640 X 200 ドット， 640 X 400 ドット）に対 
応して，コピーの形式が5種類用意されています。 COPY キーについては，| CTRI / I キーぉょび 
1 GRPH 丨 キーとの組み合わせにより3通りの方法があります。表 8-1 にその機能一覧をまとめてみ 
ます。 


COPY 1 

テキスト画面のみをプリンタにコピーします。 

CTRL + COPY キー 

COPY 2 

グラフィック画面のみをプリンタにコピーします。 

GRPH + COPY キー 

COPY 3 

テキスト画面，グラフィック画面の両方をプリンタにコピーします。 

COPY キー 

COPY 4 

グラフィック画面のみをプリンタにコピーします（漢字出力用)。 640x200 

ドットのモードで出力された漢字（グラフィックパターン）はこのモード 

で出力すると上下が 2 分の 1 に縮少されてコピーされます。 

/ 

COPY 5 

テキスト画面，グラフィック画面の両方をプリンタにコピーします。 4 と 

同じく 640 x 200 のモードで出力されたパターンは 2 分の 1 に縮小されます。 



表 8-1 コピー機能一覧 


では次に COPY の1〜5までの機能を調べるプログラム例を紹介します。 

画面コピーデモプログラム例 1 (640X200 モード） 


000000000000 
012345678901 
- 1 1 - 11 1 - 1 - 1 - 11 1 - 2 ? 
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220 LINE (100, 50)-(600.150),7,B 
230 FOR 1=1 TO10 
240 CIRCLE (500,100),1*1 
250 NEXT I 

260 FOR 1=2 TO 8 STEP 2 

270 PAINT (499 -] >1, 99),5,7 

280 NEXT I 

290 FOR 1=1 TO 5 

300 LPRINT ■COPY";I 

310 COPY I 

320 NEXT I 

330 DATA 3268,4 C4C, 2533,25 54,213C, 2344,2345,234 D,234F 
340 END 


画面コピーデモプログラム例 2 (640 X 460 モード） 


1 save SCz .dmo 

100 Screen Copy Demo 2 •• .640 x 400 

110 CONSOLE 0,25,0,0 : UIDTH 40，25 : SCREEN 3,0 

120 CLS 3 : LOCATE 7,8:PRINT _Screen Copy Demo ■ 

130 X=120 ： Y=100 

140 FOR 1 =1 TO 9 : READ KC$ : KC=VAL( ， &H ，， +KC$) 

150 PUT (X,Y),KANJI(KC) 

160 X=X+20 

170 NEXT I 

180 LOCATE 7,10 

190 PRINT M 画面コピー DEMO" 

200 LOCATE 7,16 

210 PRINT _フ。リンタアウトフ。ット _ 

220 LINE (100,50)-(600,300),7, B 
230 FOR 1=1 TO 10 
240 CIRCLE (500,200),1*1 
250 NEXT I 

260 FOR 1=2 TO 8 STEP 2 
270 PAINT (499-1*1,198),5,7 
280 NEXT 1 • 

290 FOR 1=1 TO 5 
300 LPRINT "COPY-；I 
310 COPY I 
320 NEXT I 

330 DATA 3268,4 C4C, 2533,2554 ,213C, 2344,2345,234 D,234F 
340 END 


ヒ -c: r -- e e n 0 ! p y [g e m 

画面： =1 ピ ー D E IVI O 

フ u リンラアウトフ u w 卜 
COPY 1 
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COPY 4 


210 









































8-2 テキスト画面のコピー 

8-2 -1 BASIC によるサブルーチン 

コピーキーでテキスト画面をとると LPRINT で出力した文字と異なっています。この画面コ 
ピーサブルーチンは， LPRINT と同じ字体でプリンタに出力できます。さらに画面コピーをするス 
タートとエンドの行を指定することができます。ただし，これは 80 X 25 文字モードです。 


テキスト画面コピープログラム 1 


1 ^save^XTCOP" 

59999 *TXTCOPY 

60000 DEF SEG=&HA000 
60010 FOR I=S TO E 

60020 FOR J=0 TO159 STEP 2:P=PEEK(I*160+J) 

60030 IF P>31 AND P<248 THEN LPRINT CHR$(P); ELSE LPRINT ; 

60040 NEXT J:LPRINT 

60050 NEXT I 

60060 RETURN 

Ok 


S=0sE=15：GOSUB *TXTC0PY 

Ok 


これはサブルーチン形式をとっており， S にプリント開始行， E に最終行を入れて GOSUB * 
TXTCOPY とすれば， S と E で指定した範囲がプリントアウトされます。ただし，漢字は出力され 
ません。漢字コードは無視していますので，もし漢字も出力したい場合はなんとか工夫してみて下 
さい0上記は LIS 丁をとった後，テキスト画面コピールーチンをコールしたものです。 


211 












8-2-2 マシン語によるサブルーチン 


前出のルーチンは BASIC でも，スピードはそんなに遅くありませんが，どうしてもマシン語で出 
力したい方に次のルーチンを紹介します。 

使い方は， S % に開始行， E % に最終行を入れて ， DEF SEG = & H 1 F 00: TXT =0 :CALL 
TXT ( S %, E %) として下さい。なお，アセンブラ レベルでの プリンタ出力は後の節で説明して 
います。 


テキスト画面コピープログラム2 


1 'save ■TXTCOP.MAC" 

100 / TEXT COPY MACHINE SUBROUTINE 

110 ' S^=START : E^=END : T=0 : CALL T(S^,E^) 

120 DEF SEG=&H1F00 

130 FOR 1=0 TO &H44 ： READ D$ 

140 D=VAL( M &H"+D$) : POKE I,D 
150 NEXT I 
160 END 

170 DATA C4,37,26,8B,0C,C4,77,04,26,8B,1C,B8,00,A0,8E,D8 
180 DATA 53,33,F6,8B,C3,BA,A0,00,F?,E2,8B,D8,8D,38,8A,05 
190 DATA 3C,IF,77,02,7A,04,3C,F8,72,02,B0,20,E8,0F, 00,46 
200 DATA 46,8 1,FE,A0,00,75,E5,5B,43,3B, 09,75, D3,CF,56,B4 
210 DATA 11,CD,1A,5E,C3,00,00,00,00,00,00,00,00,00,00,00 


使い方 

1 x save ， TXTC0P.BAS i 

10 CLEAR ， & H1F00JDEF SEG=&H1F00 

20 TXT=0 

30 S^=0:E^=10 

40 CALL TXT(S^,E^):LPRINT 

50 END 

8-3 カラーグラフィックコピー 
8-3-1 640 X 200 モード 

前出のサンプル出力で分かるとおり，真円をコピーするとたて長になってしまいます。これは 
N 88 -BASIC (86) のコピールーチンがなせるわざです。真円のコピーをとるためには BASIC かア 
センブリ言語で，そのプログラムを作るしかありません。そこで次に紹介するのが1: 1.03 の比で 
真円がコピーできるプログラムです。さらにカラー対応となっています。 

これは，カラーグラフィック画面をプリンタ用紙1枚分の大きさに引き伸ばしてコピーするもの 
で，カラーに応じて4段階の濃淡が付きます。ただし，これは 640 X 200 ドットのモードで，画面全 
体のコピーには約3〜4分かかります。なお，これは PC -8821/22 用です。 
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カラー対応画面コピー (640 X 200 ドット) 


1 ，save 'SC200.BAS' 

100 Graphic Screen Copy 640 x 200 

110 ' SC=0:CALL SC 

120 DEF SEG=&H1D00 

130 FOR 1=0 TO &HC1 : READ D$ 

140 D=VAL( ， &H'+D$) : POKE I，D 
150 NEXT I 
160 END 

170 DATA 1E,0E,0E,1F,07,BB,B0,00,B9,0A,00,E8,8F,00,8C,16 
180 DATA C6,00,89 > 26,C8,00 > 8C > D8,8E,D0,BC > 4A,01,CD,A0,33 
190 DATA D2,BB,BA,00,B9,06,00,E8,73,00,BB,C 7,0 0,BE, 60,01 
200 DATA 33,C0,B9,02,00,89,04,46,46,E2,FA,BD,01,00,B9,08 
210 DATA 00,33,FF,89 ， 1E,C4,00,53,52,B8,08 ， 00,F7,E2,8B,D8 
220 DATA 8D,01 ， A3,C2,00,E8,4A,00,D0,F8,3C,03,74,10,3C,00 
230 DATA 75,02,B0,03,BE,60,01,01,2C,46,FE,C8,75,F9,03,ED 
240 DATA 47,E2,DD,BB,60,01,B9,04,00,E8,21,00,5A,5B,4B,83 
250 DATA FB,FF,75,A9 ， BB,C0,00,B9,02,00,E8,10,00,42,83,FA 
260 DATA 50,75,8E ， 8E,16,C6,00,8B,26,C8,00,1F,CF,B4,30,CD 
270 DATA 1A,C3,53,51,57,55,BB,C2,00,CD,AF,5D,5F,59,5B,C3 
280 DATA 1B,4D ， 1B,3E,1B,54,31,36,0D,0A,1B,53,30,38,30,30 
290 DATA 0D,0A,00,00,00,00,00,00,00,00,00,00,00,00,00,00 

使い方は，このプログラムを実行後，画面コピーをとりたいときにダイレクトで次のステートメン 
卜を実行するかプログラム中に入れておいて下さい。 

DEF SEG = &H 1 D 00 : SC = 0 : CALL SC 

なお、 PC -8023( C ) で出力するには CALL する前に LPRINT CHR $(27); CHR $ (&H 
51); としてドさい。 

真円コピーサンプル 
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グラフィックスコピーサンプル （640 X 200 ドット）システムソフト•オリジナル作品 
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8-3-2 640X400 モード 

PC -9801 では 640 X 400 モードでカラー表示が可能なので，やはりこれのカラー対応コピーも取 
りたいところです。そこで，前出のプログラムに手を加えて， 640 X 400 ドット対応にしたのが次の 
ものです。 


カラー対応画面コピー (640X400 ドット ) 


1 'save "SC400-BAS 

100 Graphic Screen Copy 640 x 400 
110 / —— SC=0：CALL SC —— 

120 SCREEN 3,0 

130 DEF SEG=&H1D00 

140 FOR 1=0 TO &HCF : READ D$ 

150 D=VAL('&H"+D$) : POKE I,D 

160 NEXT I 
170 END 

180 DATA 1E,0E ， 0E,1F,07,BB,B5,00,B9,0F,00,E8,94,00,8C,16 
190 DATA D 4 ， 00 ,89,26 ， D6,00,8C,D8,8E,D0,BC,58,01,CD,A0，BB 
200 DATA CC,00,CD,A1,33,D2,BB,C4,00,B9 ， 06,00,E8,73,00，BB 
210 DATA 8F,01,BE,6E,01 ， 33,C0,B9 ， 02,00,89,04,46,46 ， E2，FA 
220 DATA BD,01,00,B9,08,00,33,FF,89,IE,D2,00,53,52,B8,08 
230 DATA 00,F7,E2,8B,D8,8D,01,A3,D0,00,E8,4A,00,D0,F8,3C 
240 DATA 03,74 ,10,3C,00,75,02,B0,03,BE,6E,01,01,2C,46,FE 
250 DATA C8,75,F9,03,ED,47,E2,DD,BB,6E,01,B9,04,00,E8,21 
260 DATA 00,5A,5B,4B,83,FB,FF,75,A9,BB,CA,00,B9,02,00,E8 
270 DATA 10 ， 00,42,83,FA,50,75,8E,8E ， 16,D4,00,8B ， 26,D6,00 
280 DATA 1F,CF ， B4,30,CD,1A,C3,53,51,57,55,BB,D0,00,CD,AF 
290 DATA 5D,5F,59,5B ， C3,1B,51,0D,1B,4D,0D,1B ， 3E ， 0D,1B,54 
300 DATA 31,36 ,0D,0A,1B ， 53,31 ,36,30,30,0D,0A,03,00,00,01 


使い方は前出のものと同じで，画面コピーをとりたいところで DEF SEG =& H 1 D 00 : SC =0 : 
CALL SC として下さい。 


次に出力結果のサンプルを示します。 
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グラフィックスコピーサンプル （ 640X400 ドット ） NEC PC-9801F のデモプログラムより 





115 s!ss=: 
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8-4 アセンブリ言語によるプリンタ出力 

ここでは，アセンブラ レベルで セントロニクス系プリンタに出力するルーチンを紹介します。 0 D 
A 系のプリンタ出力についても同様で，両者の選択は，メモリスイッチ SW 3 の第5ビットによっ 
て行います。0のときセントロニクス系での1のとき ODA 系となります。 

8-4-1 イニシャライズ（初期化） 

このイニシャライズは，インタラプト コール 1 AH で，セントロ ニ クス系プリンタのインターフエ 
イス // PD 8255 A を初期化し，プリンタのステータス（送信の可,不可）情報を得ます。ステータス 
は， AH レジスタの最下位ビットにセットされ，1のときデータ送信可能，0のときデータ送信不可 
となります。次にプリンタが BUSY か READY であるかの判断を行うプログラム例をあげます。 


； PRINTER BUSY CHECK 
♦ 

BUSY: MOV AH,10H 

INT 1AH 
TEST AH,01H 
JNE BUSY 

READY: 


8-4-21 バイト出力 

プリンタが READY の状態になったら，いよいよ出力です。次のようにレジスタをセットし，イ 
ンタラプトコ ー ル (1 AH ) をするとプリンタに1バイト出力します。 


; LPRINT ONE BYTE 

PUTCHR: MOV AL,41H : (、、 A " 出力するアスキ - コ - ド ) 

MOV AH,11H ; BIOS コマンドコード 

INT 1AH 
IRET 


BIOS コマンド 
イニシャライズ 
インタラプト コール 


次に A 〜 Z の26文字を出力する例をあげます。 
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LPRINT A TO Z 


START ： MOV CX,26 
OUTAZ ： MOV AL,41H 
MOV AH,11H 
OUTLP ： PUSH AX 
INT 1AH 
POP AX 
INC AL 
LOOP OUTLP 
MOV A し， 0DH 
MOV AH,11H 
INT 1AH 
IRET 


；COUNTER 
5 AL= 7 A X 
5 BIOS CODE 
5 SAVE AH & AL 
；INT CALL 
；RESTORE AH & AL 
5 AL=NEXT CHR 

5 CR 


8-4-3 複数バイト出力 


アセンブラ レベルでは1バイ ト ずつ 出力して いたのでは めんどうで バイ ト数も多くなります。そ 
こで，複数のバイトを一度に出力する方法を紹介しましょう。レジスタを次のようにセットします。 


； LPRINT A NUMBER OF BYTES 
♦ 

NBYTESs 

MOV AH,30H ； BIOS CODE 

MOV BX,ES:OFFSET DATA 

MOV CX,15 ; 出力するバイト数 

INT 1AH 

DATA DB ’Sample Data •••’ 


出力するデータは， その格納先頭アドレスを ES でセグメント， BX でオフセットを設定します。 
次にサンプルを示します。 
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关关关关关兴关兴关关关关关关关关兴关关关关关关关 

* LPRINT ROUTINE 

关关关关关关关关关关关关关关关关关关关关关关关关 


B430 

し PRINTj MOV 

AH,30H 

BIOS COMMAND 

BA001F 

MOV 

DX,1F00H 


8EC2 

MOV 

ES.DX 

LPRINT DATA SEGMENT 

BB0F00 

MOV 

BX,ESjOFFSET 

PDATA 

B91D00 

MOV 

CX,29 : 

;NO,OF BYTES TO LPRINT 

CD1A 

INT 

1AH 



save P し 1 

INPUT -CRT(c) or PRINTER (p) _;CP$ 

IF CP$= - c - OR CP$='C y THEN F$=.SCRN〆 

IF CP$= ， p B OR CP$=-P" THEN F$= B LPT1： M 

/ 


000F DATA EQU OFFSET $ 

ESEG 

ORG DATA 

000F 0D0A 54686973 PDATA DB 0DH,0AH,"This is a sample program ♦ 、 0DH ， 0AH 
206973206120 
73616 D706C65 
2070726 F6772 
61602 E0D0A 

END 


This is a sample program. 


8-5 PRINT/ し PRINT あれこれ 

画面表示とプリンタ出力を切り換えたり，同時に出力したりする方法をあれこれと考えてみたい 
と思います。 


8-5-1 出カデバイス名の変更 

一番簡単な方法は，ファイルディスクリプタを変数に入れて，必要に応じて出力先を変更するこ 
とです。 


1 

# 

S 

A 

T 

P 

T 


$ 


# 


T 

3 1 
R R 
OOP 
FT: 

$ 1 
$ 1 D # 
F II I 
IDE 
N ATS 
: E X o 


E R I 


D 


OR 
m E e 
e T g 
d N n 
I a 
a R h 
PC 
s 

ire 
o c 
s i 
•1 T ) 
h Re 

T c D 

AAA 
丁丁 T 




0 2 IT- 7 A D 
0 0 0 0 0 0 
0 0 0 0 0 0 
0 0 0 0 0 0 


/ 0 0 0 0 0 0 0 0 0 0 0 0 0 
0123456789012 

11111IX 1IX 1112 2 
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8-5-2 切り換えルーチンを作る 

BASIC の PRINT / LPRINT のステートメントは使わず，それらに対応する独自のルーチンを 
作つたのが次のものです。 

CALL 文を用いてパラメータをセットすれば 0 K です。ただし，これには CR / LF は入っていま 
せん。 


DEF SEG 二 & H 1 F 0 0 : PL =0 
CALL PL ( P %, D $) 


hO-CRT 1 —出カデータ 
L 1-PRINTER 


1 ’ save "P/ し *bas 
100 DEF SEG=&H1F00 
110 PL=0:DIM D$(5) 

120 FOR 1=0 TO &H4C 

130 READ D$ : D=VAL("&H"+D$) 

140 POKE I，D 
150 NEXT I 
160 FOR 1=1 TO 5 
170 READ D$(I) 

180 NEXT I 
190 / PRINT 
200 P°^=0 

210 GOSUB *PL 
220 P^=l 
230 GOSUB *PL 
240 END 

250 ' - SUB - 

260 *PL 

270 FOR 1=1 TO 5 
280 D$=D$(I) 

290 D$=D$+CHR$(13)+CHR$(10) 

300 CALL PL(P^,D$) 

310 NEXT I 
320 RETURN 

330 DATA C4,37,26,8B,0C,80,FD,00,74,05,32,ED,BA,60,00,C4 

340 DATA 7F, 04,26,8 B,05,26,8B, 74 ， 02 ,8E,DA,3D,00,00,74,06 

350 DATA 3D, 01,00 ,74,1A,CF,B8,60,00,8E,C 0 ， 5 1,BF*02,02，FC 

360 DATA F3,A5,59,8E,D8,CD,C2,B8,00,A0,8E,C0,CD,89,CF,1E 

370 DATA 07,56,5B t B8,60,00,8E,D8,B4,30,CD.1A,CF 

380 f OUTPUT DATA 

390 DATA This is a test program. 

400 DATA It is for PRINT/LPRINT, 

410 DATA Chapter 8 ■■■" 

420 DATA M PRINTER OUTPUT M 
430 DAT A PC-T echKnow 9800" 
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8-5-3 内部ルーチンを利用する 


内部 ルーチンにカレン ト デバイスへの 出力と いうのが あります。 
これは， 


MOV 

CX , 

出力するバイト数 

MOV 

DI , 

2 5 H 

I NT 

C 4 



という形で コールし ます。 

その前に出力先を決めるセグメント60 H のワークエリア (1840 H ) に値をセットしておく必要が 
あります。 


〔18 4 0 H 〕 <- 3 (プリンタ） 

〔18 4 0 H 〕 <- 4 ( CRT ) 

また，出力するバイト数は 1884 H に入っています。これを CX に入れておきます。 

MOV CX , 〔 1 8 8 4 H 〕 

なお，出力先をプリンタにした場合には，出力する文字数の何文字目で CR / LF を入れるかを決 
定するワークエリア (153 AH ) に値をセットしておかなければなりません (WIDTH LPRINT の 
パラメータ格納エリア）。 

0,1 . 1文字ずつ CR/LF 

2〜7 9……その数値に対応する文字ずつ C R/L F 
8 0 . 1行80文字ごとに CR/LF 

普通，プリンタは1行80字で CR/LF しますので，80文字に満たない場合は出力文字数を入れ 
ておくとよいでしょう。 

使い方は， PRINT 文実行直後にマシン語ルーチンをコールすると，それがプリンタにも出力され 
ます。 ' 


PRINT 、、 ABC " : CALL A 
また，184 0 H に4を入れると， 

LPRINT 、' ABC " : CALL A 
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で， CRT にも同じものが出力されます。 


sa«je P し2 


100 DEF SEG=&H1F00 : P=0 

110 / PRINT AND LPRINT ALSO -- 

120 FOR 1=0 TO &H16 : READ D 丰 

130 D=VAL("&H B +D$) : POKE I,D 

140 NEXT I 

150 FOR 1=1 TO 3 

160 READ D 丰 ： PRINT D 丰 ： CALL P 

170 NEXT I 

180 END 

190 / 

200 DATA 16 " PUSH SS 

210 DATA IF " POP DS 


220 DATA B0,03 f MOV AL,3 

230 DATA BB, 40,18 ' MOV BX,1840 

240 DATA 88,07 x MOV [BX],AL 

250 DATA 8B,0E, 84,18 ’MOV CX,[1884] 

260 DATA 89 ， 0 E ， 3A,15 'MOV [153A],CX 

270 DATA BF, 25,00 7 MOV DI,25 

280 DATA CD,C4 y INT C4 

290 DATA CF x IRET 

300 " 

310 DATA This is a demo• 


320 DATA CRT and PRINTER 
330 DATA Interrupt Call 


8-5-4 未使用コマンドでの切り換え 

N 88 - BASIC (86) の未使用コマンドである CMD を用いて PRINT と LPRINT の切り換えを行っ 
てみましょう。 

コマンドは次のように割り当てます。 

CMD ON . PR I NT->LPR I NT 

CMD OFF . 上記を解除 

なお，未使用コマンドの使い方は第14章ランダムテクニックを参照して下さい。 

次のプログラムを実行させると，以後 ， CMD ON と CMD OFF のコマンドが使えるようにな 
ります。これらはダイレクトモードでもプログラム中でも OK です。 LPRINT を PRINT の機能に 
変えるには，350行のデータを2バイト書き換えて下さい。 


1 save cmd.bas" 

10 PRINT 'CMD ON/OFF Sample" 
20 ' print 

30 PRINT "PC-TechKnow 9800" 
40 CMD ON 
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50 PRINT "Printer Output 
60 CMD OFF 
70 PRINT 'CRT Output - 
80 END 


CMD ON .OFF による PRINT-^LPRINT 


1 ^ save "cmdp" 

100 DEF SEG=&H1F00 s RESTORE 310 

110 FOR 1=0 TO &H5D " —— Machine Code 

120 READ D$:D=VAL(■&H'+D$) 

130 POKE AD+I,D 

140 NEXT 

150 DEF SEG=&H 60 : RESTORE 290 
160 FL=&H1593 ' — CMD Command Flag 

170 AD=&H159C 
180 POKE FL,0 

190 FOR 1=0 TO 7 一一 Set User Routine Address 
200 READ D$:D=VAL(-&H_+D 丰） 

210 POKE AD+I,D 
220 NEXT 

230 POKE FL,1 / - - Flag On 

240 / - 

250 PRINT 'You can use the following commands ： 
260 PRINT • CMD ON J PRINT -> LPRINT 
270 PRINT " CMD OFF ： Cancel 


280 

290 

300 

310 

320 

330 

340 

350 

360 


END 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


00,00,00,IF 
3E,00,00,IF 

3C,E8,F8,75,39,E8,0D,00,80,FB,BD,74,18,80 ， FB ， BF 
74,2C,E9,0A,00 ， 89,36,EA,06,BF,0D,00,CD,C4,C3，BF 
01,00 •CD,C4,CB,BB, 90,15, B8,40,00,89,07,E9,07,00 
BB,9C,15,33,C0,89,07,A1,EA,06,A3,E8,06,F9,CB,90 


3C, 

C3, 


211,74 ,07,3C,E8,74,07,E9,02,00, B0, 

FF,80,FB,BF,74,D9,80,FB,BD ， 74,FI ， 


A^,F8,CB,E8 
EB,Cl, 90,90 


AD 


CO 2 バイト書き換えると 


LPRINT — PRINT となります。 
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第 9 章漢 字 

9-1 漢字 ROM ボード 

9-2 テキスト画面とブラフィック画面に漢字表示 

9-3 ファンクションキーエ U アに漢字表示 

9-4 漢字フォントパターン読み出し 

9-5 漢字フォントパターンの拡大表示 

9-6 漢字 *J IS コード対廊表示 

9-7 漢字フォントをビットイメージで出力 

9-8 任意のフォントの作成•出力 




第 9 章漢字 


9-1 漢字 ROM ボード 

PC -9801 にオプションの漢字 ROM ボードを装着すると，日本語表示が可能となります。さらに 
専用高解像度 （640 X 400 ドット）ディスプレイを使用すると，テキスト画面に日本語表示ができま 
す。 

PC -9801 が扱う日本語文字はテキスト画面とグラフィック画面により表 9-1 のようになってい 
ます。 


グラフィック 
画面 
(3,850字種） 


テキスト 


JIS 第1水準の漢字2,965字 

画面 < 


非漢字453字 

(3,574 字種） 


半角文字156字 


半角ひらがな63字 


X 角文字213字 


表 9-1 使用できる日本語文字 


9-2 • テキスト画面とグラフィツク画面に漢字表示 

日本語文字は，1バイトの英数カナ文字とは異なり，1文字が2バイトのコードで表わされます。 
N 88 - BASIC (86) では，日本語の文字列を一般の1バイトの文字列と異なったものとして扱うよう 
なことはせず，両者を混在させて扱うことができます。 

そこで，1バイトの文字列と漢字とを区別するために，漢字文字列の始めと終りにそれぞれ，漢 
字イン （KI = 1 B 4 BH )， 漢字アウト （ K 0 = 1 B 48 H ) の記号を付けています。試しに次のプログ 
ラムを実行して， KI , KO を調べてみましょう。 


漢字イン•アウトチェック 

1 save kan ji* 

10 x KANJI SAMPLE 
20 A 丰 =_KANJI 漢字カン V 
30 FOR 1=1 TO LEN(A$) 

40 B$=MID$(A$,I,1) 

50 PRINT HEX$(ASC(B$))； - "5 
60 NEXT I 
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sa^e Pkan jI" 

X=10 ： Y=10 ： Z=1 
FOR 1=1 TO 8 
READ KC$ 

KC=VAL('&H_+KC$) 

PUT (X,Y),KANJI(KC) 

GOSUB *LCT 
NEXT 
END 
^LCT 

IF Z=1 THEN X=X+20：GOTO 210 

Y=Y+20 

RETURN 

DATA 3441,3 B7A, 4930,3 C 28 
DATA 2344,2345,234 D,234F 


9-3 ファンクションキーエリアに漢字表示 

漢字をファンクションキーに定義することができないのに，市販の漢字ワープロなどではちゃん 
とそのエリアに表示して，それに対応するキーが押されると，その処理を行うようになっています。 

これは実は，ファンクションキーエリアの位置に PRINT 文で漢字を書き，それをリバースさせ 
て，あたかもファンクションキーであるかのように見せかけているだけです。そして，ファンクショ 
ンキー割り込みを使って，それぞれに対応する処理を行うようにしています。 

そこで以上のことをプロダラミングした簡単なメニュー•ルーチンを紹介します。各ファンクショ 
ンキーを押すと，それに対応したメッセージが表示されます。別な処理項目を選ぶときには 


4B 41 4E 4A 49 20 IB 4B 34 41 3B 7A 1B 48 20 B6 DD BC DE 

K A N J I ^ ~~^ ~-~ • ' 一一 -~~-~^ カン シ、、 

KI 漢 字 K0 


テキスト画面への漢字表示は，| CTRL | + r XFER ] や KINPUT などで JIS コードを入力すれ 
ば簡単にできます。さらに BASIC のプログラム中に PRINT 文で出力したり，文字変数にも代入で 
きます（前ページのサンプルプログラム参照)。 

しかし，グラフィック画面に表示するには少しめんどうです。次のように表示する X ， Y 座標と 
JIS コードを設定する必要があります。 

PUT ( X ， Y ), KANJ I (J I S コード） 

次に紹介するプログラムは，表示する X ， Y 座標，縦表示•横表示のフラグ Z を指定するだけで 
グラフィック画面の任意の位置に漢字を表示するものです。 

漢字の G-VRAM 表示 


0 0 0 0 0 
0 12 3 4 

-11IX IX 1 


000000000 

567890123 

111112222 
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キーを押してメニューに戻して下さい。 


漢字メニュールーチン 

1 x save "Kan ji. key " 

1000 Display Kan ji 

1010 ’ in Function Key Area 

1020 CONSOLE 0,25,0,0 : DEFINT X,Y : CLS 

1030 'FOR 1 =1 TO10 : KEY I," : NEXT I 7 -- Key Clear 

1040 RESTORE 1500 : READ A$ 

1050 X=4:Y=24:G0SUB *DISP ^ — [f.l] 


1060 FOR 1=1 TO 4 : READ A$ 


1070 X=X+7 : GOSUB ^DISP x -- *5 ： 

1080 NEXT I 
1090 READ A$ 

1100 X=X+10 : GOSUB *DISP ' Cf*6 ： 

1110 FOR 1=1 TO 4 : READ A$ 

1120 X=X+7 : GOSUB *DISP / *10 ： 

1130 NEXT I 

1140 ' - Key Select - 

1150 *KEYS 

1160 LOCATE 0,2:PRINT SPACE$(6) 

1170 ON KEY GOSUB *SAKUSEI,*TSUIKA,*HENKOU,*SAKUJO,*CHIKAN, 
^YOMIKOMI,*KENSAKU,^TOUROKU,*SH0UKY0,^SHURYOU 
1180 FOR 1=1 TO10 : KEY(I) ON : NEXT I 

1190 ’ - Display Prompt - 

.1200 LOCATE 0,0 
1210 PRINT ■処理項目を溜んでください。 

1220 LOCATE 0 ,2:K$=INPUT$( 1 ) 

1230 GOTO *KEYS 

1240 x ====== SUBROUTINES ====== 


1250 *SAKUSEI 
1260 PRINT • 作成 M 
1270 ^TSUIKA 
1280 PRINT ■ 追加 • 
1290 *HENK0U 
1300 PRINT _ 変更 , 
1310 ^SAKUJO 
1320 PRINT • 削除 _ 
1330 *CHIKAN 
1340 PRINT • 置換 • 
1350 *Y0MIK0MI 
1360 PRINT • 読込 _ 
1370 ^KENSAKU 
1380 PRINT • 検索 • 
1390 ^TOUROKU 
1400 PRINT ■ 登辣 _ 
1410 ^SHOUKYO 
1420 PRINT 1 • 消去 _ 
1430 ^SHURYOU 
1440 PRINT • 終了 " 


K$=INPUT$(1) : RETURN 
K$=INPUT$(1) : RETURN 
K$=INPUT$(1) : RETURN 
K$=INPUT$(1) : RETURN 
K$=INPUT$(1):RETURN 
K$=INPUT$(1) : RETURN 
K$=INPUT$(1) : RETURN 
K$=INPUT$(1) : RETURN 
K$=INPUT$(1)sRETURN 
KEY OFF : CLS：CONSOLE 0,25,1,0 


1450 END 

1460 *DISP * Function Key Area Dispaly 
1470 LOCATE X,Y : PRINT A $； 

1480 C0L0R@(X,Y)-(X+5,Y),4 


1490 RETURN 


1500 DATA 作成，追加，変更，削除，置換 
1510 DATA 読込，検索，登 8U 肖去，終了 
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9-4 漢字フォントパターン読み出し 

インタラプトコールを使って漢字コードに対応するフォントパターンを読み出してみましょう0 
日本語コードは，全角が 15 X 16 ドット，半角が 7 X 16 ドット，％角が6 X 8ドットとなっていま 
す。また，これらのパターンを読び出す際に必要なバッファの大きさは表 9-4 のように決められて 
います。 



フォントパターン • ドット数 

フォントバッファ•バイト数 

全 角 

15 x 16 

32 + 2 

半角 

7 x 16 

16 + 2 

X 角 

6 X 8 

8 + 2 


表 9-4 漢字のタイプとリードバッファ 

では次に，読み出し方を述べます。 


; KANJI FONT READ 


MOV AH,14H ; BIOS コード 

MOV BX,BUFSEG — バッファの先頭アドレル（セグメント） 

MOV CX,BUF0FF — バッファの先頭アドレス（オフセット） 

MOV DX,JC0DE — 文字コ-ドを指定 

1•全角 . DX=JIS コード 

一.半角 . DX 二半角コード 

ノ ％角 . DX 二％ 角 コードの 下位 8 バイト 

INT 18H 5 INT CALL 


これを実行後，使用したレジスタ （ AH ， BX ， CX ， DX ) および SI 以外のレジスタは保障され， 
次の形式で BX ， CX で指定したフォントパターンバッファに書き込まれます。ただし，バッファの 
最初の2バイトは制御域となっており，実際のフォントは3バイト目から格納されます。 

以下，セグメント 1 F 00 H ， オフセット 20 H として全角，半角，％角のフォントパターンを読み 
出す方法を具体例を示して紹介します。 
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①全角 



34 バイト 


40 88 27 FF 10 88 00 00 43 FE 22 2212 22 
00 20 0B FE 08 20 17 FF 10 20 20 50 21 8C 


AH,14 

BX ， 1F00 * —セグメント 
CX 9 0020 —オフセット 
DX.3441 <— 「漢」全角 
18 


BX : 〔 CX 〕 

セグメント.オフセット 



0020 

0030 

0040 


0000 B414 
0002 BB001F 
0005 B 92000 
0008 BA 4134 
000B CD18 
000D C3 


丨6ドツ 


I 


16 ドッ 


3441 

01,23456789 AB^DEF 


HD 


i 


•% 


• * #0 


制御域 


02 

02 

① 

② 

③ 

④ 


㉙ 

㉚ 

㉛ 

㉜ 



2 E 3T5 
0 F 0i9~ 

2 3 6ki^v- 

0 0 


uv V uv uv T T 

o o o o N E 

M M M M I R 
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B414 

BB001F 

B 92000 

BA4B80 

CD18 

C3 


16 ドッ 


②半角 


ドツ 


294B 

0123456789 ABCDEF 

0 . . .① 

* ^—② 

=—③ 

! —④ 


AH,14 

BX,1F00 

CX,0020 

DX,804B — 「 K 」 半角 
18 



0020 02 01 00 42 44 44 48 48 50 60 50 48 48 44 44 42 
0030 00 00 t ■ t 


⑬⑭ 

T T 
© ® 



0 2 5 8 B D 
0 0 0 0 0 0 
0 0 0 0 0 0 
0 0 0 0 0 0 


⑬⑭⑮⑯ 



V MV uv V T T 

o o o o N E 
MM M M I R 
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③ン 4 角 


8ドット 


4B 

^0123456789ABCDEF 



下位/ 


制御域 


01 

01 

① 

② 

〜 

⑦ 

⑧ 


上位 


BX: 〔 CX 〕 



10 バイト 


0020 01 01 42 44 48 70 48 44 42 00 00 00 00 00 00 00 

T t t 
⑥⑦⑧ 


0000 B414 
0002 BB001F 
0005 B 92000 
0008 BA4B00 
000B CD18 
000D C3 


MOV AH, 14 

MO リ BX,1F00 

MOV CX,0020 

MOV DX ， 004B—「Kj レ 4 角 

INT 18 

RET 


読み出したフオントパターンは一般には，グラフィック VRAM に移送してディスプレイに表示 
します。それでは，それを実際に行ってみましょう。次のプログラムは， BLUE のグラフィック画 
面の左上から横に「漢字表示 DEMO 」 と表示するものです。 
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8B14 

56 

CD18 

5E 

E80A00 002B 

46 

46 

83C702 

4D 

75EF 0018 
IF 


し 00 PI: 


5 DX=KANJI CODE 
5 INT CALL 
5 GVRAM WRITE 

5 X=X+2 

: RESTORE DS 


DISP ： PUSH AX 
PUSH BX 
PUSH CX 
PUSH SI 
PUSH DI 


5 SME REGISTERS 


002A CF 


IRET 


BACK TO BASIC 


漢字フォント G-VRAM 書き込み 


1'sa リ e "FONT.RAM' 

100 Read Font and Display on G-VRAM 

110 ' --- FT=0:CALL FT --- 

120 DEF SEG=&H1F00 

130 FOR 1=0 TO &H7A : READ D 丰 

140 D=VAL( ， &H"+D$) : POKE I,D 

150 NEXT I 

160 END 

170 DATA 1E,0E,1F,B8,00,A8,8E,C0,B4,14,BB ， 00,1F,B9,49,00 
180 DATA BE,6B,00,33,FF,BD,08,00,8B,14,56,CD,18,5E,E8,0A 
190 DATA 00,46 ,46,83,C7,02,4D,75,EF,IF,CF,50,53,51,56,57 
200 DATA B 9,10 ,00,BE, 49,00 ,8B, 44,02 ,26,89,05,46,46,83,C7 
210 DATA 50,E2,F3,5F,5E,59,5B,58,C3,00,00,00,00,00,00,00 
220 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
230 DATA 00,00,00,00,00,00,00,00,00,00,00,41,34,7A,3B,3D 
240 DATA 49,28,3C,44,23,45,23,4D, 23,4 F,23,00,00,00,00,00 


マシン語ルーチンのソースリスト 


；关关关关*关*关*关关*关关兴关关关兴*关关兴* 

；* KANJI FONT READ 
AND DISPLAY 

; 关关关关关关关关关兴关关关关关关关关兴关*关关关 

參 

START: PUSH DS ； SAVE DS 

PUSH CS 

POP DS ; DS=CS 

MOV AX,0A800H ; GVRAM BLUE SEGMENT 

MOV ES,AX 

MOV AH,14H ； BIOS CODE 

MOV BX,1F00H ; FONT BUFFER SEGMENT 

MOV CX,OFFSET BUFF ； FOND BUFFER OFFSET 

MOV SI,OFFSET KCODE ； KANJI CODE AEAR 

XOR DI,DI ,• GVRAM OFFSET ADDRESS 

MOV BP,08H ; LOOP COUNTER 


0000 IE 
0001 0E 
0002 IF 
0003 B800A8 
0006 8EC0 
0008 B414 
000A BB001F 
000D B 94900 
0010 BE6B00 
0013 33FF 
0015 BD0800 


8ABDE1 23679 
11111222222 
0 0 0 0 0 0 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 


J 

，I H 
: s 8 I 

1 1 s 

H 


sp 


2H 

0 


op 


D I I I p o s 
s s D B し D 

STD_- c c D c z p 


0 3 16 7 
5 5 5 5 5 

B c D E F 
2 2 2 2 2 
0 0 0 0 0 
0 0 0 0 0 
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B 91000 

BE4900 

8B4402 

268905 

46 

46 

83C750 

E2F3 


MOV CX,10H 
MOV SI,OFFSET BUFF 
L00P2 ： MOV AX,02H[SI] 

MOV ES:[DI],AX 
INC SI 
INC SI 


0036 


ADD DI,50H 
LOOP L00P2 


5 CX=16 WORDS 

;URITE 2 BYTES 

;SKIP 80 BYTES 
； Y=Y+80 

;RESTORE REGISTERS 

：RETUREN TO MAIN 


0049 


0049 

006B 41347 A3B3D49 
つ MC 

0073 442340234523 
4F23 


DATA SEGMENT 


BUFF 

KCODE 


EQU OFFSET $ 

DSEG 

ORG DA 

RS 34 


RESERVE 34 BYTES 


DU 3441H,3B7AH,493DH,3C28H 
DU 2344H,234DH,2345H,234FH 


0369 CDE1 
33333334 
00000000 
00000000 


I I X X X 
D s c B A 

PPPPPT 

o o o o o E 
p p p p p R 


F E 9 B 8 3 
5 5 5 5 5c 

3 4 5 6 7 8 

4 4 4 4 4 4 
0 0 0 0 0 0 
0 0 0 0 0 0 
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9 - 5 漢字フォントパターンの披大表示 

漢字フォントパターンの読み出し方が分かったところで， BASIC とマシン語によりフォントパ 
ターンを画面に拡大して表示してみましょう。 RUN して，漢字コードを16進数で入力すると，そ 
のフォン トパターンが表示されます。 


フォントパターン拡大表示 


1 save kdisp.bas 
100 Kanji Font Display 

110 CLEAR ，& H1F00 : DEF SEG=&H1F00 / Program Segment 
120 WIDTH 80,25 : DEFINT A-Z 
130 POFF=0 ： FOFF=&H20 


140 P=15 : K=31:DIM P$(P),K(K) 

150 FOR 1=0 TO P : READ P$(I) : NEXT I 

160 DATA —— M# 

170 DATA •- - -，•- #• - 

180 - Kan ji Fond Read Sub - 

190 FOR I=&H0 TO &HF ' Program Offset=0 

200 READ D$:D=VAL(*&H"+D$) 

210 POKE I,D 

220 NEXT I 


230 DATA C4,37 
240 DATA 26,8B,14 
250 DATA B4,14 
260 DATA BB,00,1F 
270 DATA B9,20,00 
280 DATA CD,18 
290 DATA CF 


/ LES SI,[BX] 

/ MOV DX,ES:[SI] 
"MOV AH,14H 
'MOV BX,1F00H 
〆 MOV CX,0020H 
/ INT 18H 
'IRET 


• DX=Kan ji Code 

• BIOS cmd 

• Font Segment 
_ Font Offset 

• Call Read Font 

• Back to BASIC 


300 " - Kan jl Code Input & Read - 

310 PRINT *=== Kanji Font Display ===• 

320 INPUT "Enter Kanji Code '；KC$ J KC=VAL(■&H■+KC$) 


330 FOR 1=0 TO K+2 : POKE FOFF+1,0 : NEXT I f Buffer Clear 


340 CALL POFF(KC) ' Read Fond 

350 / - Store Font Data in k(k) - 

360 FOR 1=0 TO K : K(I)=PEEK(FOFF+I+2) : NEXT I 
370 / 

380 - Display - 

390 TP=PEEK(F0FF+1) 


400 LOCATE 6,2 : PRINT HEX$(KC) 

410 LOCATE 1,4 : PRINT _ 0123456789 ABCDEF• 

420 FOR 1=0 TO P 

430 LOCATE 0,1+5 : PRINT HEX$(I)； 

440 FOR J=0 TO TP-1 

450 K$=RIGHT$("0'+HEX$(K((I*2+J)/(3-TP))),2) 
460 PL=VAL C&H" +LEFT$ (K$,l)) 

470 PR=VAL(■&H■+RIGHT$(K$,1)) 

480 LOCATE J*8+l,I+5 

490 PRINT P 丰 （P し）； P$(PR); 

500 NEXT J 
510 NEXT I 
520 END 
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9-6 漢字 • JIS コード対応表示 

PC-9801 には日本語 BASIC のシステムが別売されていますが，これがない場合，いちいち漢字 
コードを調べるのは大変です。そこで， G-VRAM に漢字とその JIS コードを対応させて表示する方 
法をちょっとしたアイディアとして紹介しましょう。 

次のプログラムは，漢字の最初の「ア」の部分をその JIS コードとともに表示するものです。 
GVRAM に表示しますので，テキスト画面で漢字入力する際に便利だと思います。これを「ア〜ン」 
までに拡張して，例えば「ア」を入力すると，その漢字とコードが表示されるようにプログラミン 
グすると一段と使い易くなることでしょう。 


漢字 • JIS コード対応表 


1 save "Kdisp 

1000 SCREEN 3,0 : ROLL 399 : ROLL 1 
1010 X=20：Y=0：N=0 ' Locate x,y 
1020 FOR J=&H3021 TO &H3049 ^ 7 ... 

1030 FOR 1=1 TO 4 ^ JIS Code print 

1040 K$=HEX$(J)：K$=MID$(K$,I,1) 

1050 K=VAL(K$):K=K+&H130 

1060 IF K$=_A_ THEN K=8*H141 

1070 IF K$="B B THEN K=&H142 

1080 IF K$= B C B THEN K=&H143 

1090 IF K$="D" THEN K=&H144 

1100 IF K$="E' THEN K=&H145 

1110 IF K$="F B THEN K=&H146 

1120 PUT (X+16^I-20,Y),KANJI(K),PSET,5,0：NEXT I 
1130 PUT(X,Y+7),KANJI(J),PSET,6,0 / Kanji print 

1140 Y=Y+24:N=N+1:IF N>14 THEN Y=0：X=X+80 :N=0 

1150 NEXT J 
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く出力例〉 



9-7 漢字フォントをビットイメージで出力 

せっかく漢字フォントパターンの読み出し方が分かったのですから，グラフィック画面表示のみ 
ならず，プリンタにも出力してみましょう。通常，漢字をプリントアウトするにはプリンタに漢字 
ROM が付いていなければなりません。しかし，ビットイメージ（ビットドット対応グラフィック） 
が出力できるプリンタであれば，ここに示すルーチンで簡単に漢字出力ができます。ここでは ， PC 
-8821を例にとり話を進めていきますが，その他のプリンタ （ PC -8023 C ) などでも考え方は同じで 
す0 
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漢字の「字」を出力することを考えてみましょう。その手順は次のようになります。 

① インタラプトコールで漢字フォントパターンを読み出し，バッファに格納する。 

② そのパターンをビットイメージデータに 変換す る。 

③ ビッ トイ メー ジデータを プリンタに出力する。 

①と③は簡単ですが，②がちょっとやっかいです。 PC -8821 および PC -8822 では，16ビットド 
ットのデータを出力するには次のようにします。 

LPRINT C H R $ (27) :、'10016"; 

1 -16ビッ トの データ 出力 

また漢字フォントは，縦方向にスライスして2バイトの値に変換しなくてはなりません。その変 
換法を「字」というフォントパターンを分析して解説しましょう。 


3B7A 



フォントパターンを縦にスライスする 




ビットイメージデータに変換する 


ビットイメージデータは，00, 〇〇,1 C ，04〜となります 。 BASIC で「字」をプリントアウトする 
には次のようになります。 
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sa リ e 'KFP.BAS - 

CLEAR ， & H1F00:DEF SEG=&H1F00 ： KF=0 
FOR 1=1 TO 8 

READ KC$ ： KC ㈣ AL(_ &H _ +KC$) 
LPRINT CHR$(27) ； •10016 " ； 

CALL KF(KCX) 

NEXT I 


BASIC による「字」出力 


1 / save "kan j i• bas" 

10 LPRINT CHR$(27); ■10016" ; 

20 FOR 1=1 TO 32 

30 READ K$ : K=VAL( ■&H ，， +K$) 

40 LPRINT CHR$(K); 

50 NEXT I 

60 DATA 00,00,1C,04,04,04,04,04,24,04,24,04, 24,84,24,84 
70 DATA 27,FF, 24,0 5,A4,04,64,04,24,04,04, 04 ， 04, 04,1C,04 


このフォントパターンからビットイメージデータに図を書いていちいち変換していたのでは頭が 
変になります。そこで，それを PC - 9801にやってもらうプログラムが次のものです。これは前出の 
①，②，③の処理をすべて行います。使い方は， BASIC から漢字コード（ただし，全角のもの）を 
パラメータとしてコールすれば OK です。 


フォントのビットイメージ出力 

1 'sa リ e "KFP - 

100 Kan ji Font Print 

110 " --- KF=0：CALL KF --- 

120 DEF SEG=&H1F00 

130 FOR 1=0 TO &HD0 : READ D$ 

140 D=VALC&hT+D$) : POKE I,D 
150 NEXT I 
160 END 

170 DATA C4, 37,26 ,8B,14,1E,0E,1F,B4,14,8C,DB,B9,AA,00,CD 
180 DATA 18,BF,D2,00,BE,AA,00,46,46,33,DB,B1, 01,56 ,57,53 
190 DATA 51,33,C0,51,B9,08,00,89,05,47,47,E2,FA,59,BF,D2 
200 DATA 00,32,ED,8A,34,8A,54,01,D3,E2,9F,F6,C4,01,75,04 
210 DATA B0,00,7A,02,B0,01,88,05,47,83,C6,02,FE,C5,80,FD 
220 DATA 10,7 5,E0,BF,D2,00,B9,02,00,E8,24,00,88,26,D1,00 
230 DATA E8,1D,00,8A,C4,B2,10,F6,E2,02,06,D1,00,E8,31,00 
240 DATA E2,E 7,59 ,5B,5F,5E,FE,Cl,43,83,FB, 10,75 ,9F,IF,CF 
250 DATA 51,32,E4,B1,01,8A,05,0A,C0,74,03,E8,0C,00,02,E0 
260 DATA 47,FE,C1,80,F9,05,75,ED,59, 〔 ;3,8A,C1,BB,CC,00,D7 
270 DATA C3,IE,16,IF,B4,11,CD,1A,IF,C3,00,00,00,00,00,00 
280 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
290 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,01,02,04 
300 DATA 08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 


使い方 


0 0 0 0 0 0 
112 3 4 5 6 
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; 关关关关*关关关关关关关关关关关矢***关矢* 

KANJI FONT PRINT 
IN BIT IMAGE 

； 关关关关关关关关关关关关关关关关关关关*关关关 


C437 

START ： 

LES SI,[BX] 

；GET PARA FROM BASIC 

268B14 


MOV DX,ES:[SI] 

； DX=KANJI C0DE(16 DOT) 

1E 


PUSH DS 

;SAVE DS FOR INT CALL 

0E 


PUSH CS 


IF 


POP DS 


B414 

FONT: 

MOV AH,14H 

；BIOS COMMAND 

8CDB 


MOV BX,DS 

5 SEGMENT 

B9AA00 


MOV CX,OFFSET 

BUFF ; FONT BUUFER 

CD18 


INT 18H 

；INT CALL 


0011 

BFD200 


GET: 

MOV DI,OFFSET PUORK ; BIT STORE UORK 

0014 

BEAA00 



MOV SI,OFFSET BUFF 

0017 

46 



INC SI 


0018 

46 



INC SI 

SI=FIRST BUFFER 

0019 

33DB 



XOR BX,BX 

BX=OUTER LOOP C=0 

001B 

B101 



MOV CL,1 

SHIFT COUNTER 

001D 

56 


OUT し P: 

PUSH SI 

SAVE KANJI FONT ADD 

001E 

57 



PUSH DI 

SAVE PUORK ADD 

001F 

53 



PUSH BX 

SAVE OUTER C 

0020 

51 



PUSH CX 

SAVE CL COUNTER 

0021 

33C0 



XOR AX,AX 

CLEAR PUORK 

0023 

51 



PUSH CX 


0024 

B 90800 



MOV CX,8 


0027 

8905 


C し R: 

MOV [DI],AX 


0029 

47 



INC DI 


002A 

47 



INC DI 


002B 

E2FA 

0027 


LOOP CLR 


002D 

59 



POP CX 


002E 

BFD200 



MOV DI,OFFSET PUORK 

0031 

32ED 


； 

XOR CH,CH ; 

;INNER LOOP COUNTER CH=0 

0033 

8A34 


I NLP ： 

MOV DH,[SI] ； 

； DX=FIRST DOT STRING 

0035 

8A5401 



MOV DL,01H[SI] 


0038 

D3E2 



SHL DX,CL 

SHIFT LEFT CL CF=BIT 

003A 

9F 



LAHF 

AH=CF 

003B 

F6C401 



TEST AH,1 

CF=1? 

003E 

7504 

0044 


JNE NEXT 

IF CF=0 THEN AL=0 

0040 

B000 



MOV AL,0 

IF CF=1 THEN AL=1 

0042 

7A02 

0046 


JP STR 


0044 

B001 


NEXT: 

MOV AL,1 


0046 

8805 


STR: 

MOV [DI],AL 3 

;STORE 

0048 

47 



INC DI 


0049 

83C602 


NEXLPt 

ADD SI,02H 

SKIP 2 BYTES 

004C 

FEC5 



INC CH 

COUNT UP 

004E 

80FD10 



CMP CH,16 

16 LOOPS? 

0051 

75E0 

0033 


JNE INLP 

INNER し 0 OP 


70 END 

80 DATA 3441,3 B7A,493D,3C 28,2344,2345 ,234D,234F 
マシン語部分のソースリスト 


02567 8ACF 

0 0 0 0 0 CS5 0 CD 0 
0 0 0 0 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 
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CMD 

BYTE (AL) 


PUSH DS 
PUSH SS 
POP DS 
MOV AH,11H 
INT 1AH 


PUTC ： 


PICKAL: MOV DI,OFFSET PUORK 


0080 


00A1 

0059 


001D 


008E 

009A 


0085 



MOV CX,2 

• 

1 

LOOP 2 

PCHR: 

CALL PICKUP 
MOV XL0U,AH 
CALL PICKUP 
MOV AL,AH 

♦ 

STORE LOU BYTE 


MOV DL,16 

MUL DL 

♦ 

YL0U=Y*16 


ADD AL.XLOU) 

♦ 

AL=BYTE TO PRINTER 


CALL PUTC 

♦ 

f 

OUTPUT TO PRINTER 


LOOP PCHR 



f 

POP CX 

POP BX 

♦ 

RESTORE CL 


POP DI 

• 

> 

RESTORE KUORD ADD 


POP SI 

l 

RESTORE KANJI ADD 


INC CL 


SHIFT BIT COUNT UP 


INC BX 

CMP BX,16 

JNE OUTLP 

♦ 

OUTER LOOP COUNT UP 

；++++++++++++++++++++++++++++++++++++++++++ 


POP DS 

IRET 

♦ 

BACK TO BASIC 

♦ ++++++++++++++++++++++++++++++++++++++++++ 

PICKUP: 

PUSH CX 

XOR AH,AH 

MOV CL,1 


LOOP 4 COUNTER 

AD: 

MOV AL,[DI] 

OR AL,AL 

JZ ZERO 

CALL CALC 

參 

1 ， 2, 4,8 

ZERO ： 

； 

• — — 一一 • 

<. in 

3 ： __J _l CD X 

C Q CJ O C O 

QOOCLLUQ-I— 

O Z Z 2 ： Z O LU 

<1 ： >_H (_J —) Q_ Q/ 




—SUBROUTINE - 

CALC: MOV AL,CL 

MOV BX,OFFSET TBL 


1,2,4,8 


XLAT AL 
RET 


5 AL=1,2,4,8 


8AC1 

BBCC00 

D7 

C3 


0053 BFD200 
0056 B 90200 
0059 E 82400 
005C 8826D100 
0060 E81D00 
0063 8AC4 
0065 B210 
0067 F6E2 
0069 0206D100 
006D E 83100 
0070 E2E7 

0072 59 
0073 5B 
0074 5F 
0075 5E 
0076 FECI 
0078 43 
0079 83FB10 
007C 759F 

007E IF 
007F CF 


00A1 IE 
00A216 
00A3 IF 
00A4 B411 
00A6 CD1A 
00A8 IF 
00A9 C3 


POP DS 
RET 




DATA SEGMENT 



1 

s 

o T 
I u 
Bo 


A c F 0 
9 9 9 A 
0 0 0 0 
0 0 0 0 


0 5 
0 0 

41503 C0 19 D 
E00C00E CFE 
121 AA4827E 0593 
53B807E04F875C 

013579 BE 013689 
88888888999999 
0 0 0 0 0 0 0 0 0 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 0 0 0 0 


241 











0001020408 


RS 34 

DB 00H,01H,02H > 04H,08H 
RS 1 
RS 16 


00AA 


DATA EQU OFFSET $ 


DSEG 

ORG DATA 


END 

9 - 8 任意のフォントの作成•出力 

漢字の章の最後として，これまでのことがらをすべて1つのプログラムにまとめたものを紹介し 
ます。機能としては，画面上で 16 X 16 ドットの範囲で任意にフォントを作成•修正してそれをビッ 
トイメージでプリンタに出力できます。これにより，ユーザーは思いのままに文字やパターンが出 
力できます。また，作成中にパターンが G - VRAM 上に表示され，パターンの確認ができたり，作 
成済のパターンをディスクにセーブすることもできます。 

なお，このプログラムは，前出の漢字フォントパターンの拡大表示, G-VRAM への書き込み，ビッ 
トイメージ出力を応用したものです。 

使い方は次のとおりです。 

1 . Edit (編集） 

① Edit New (新規作成） 

1度にパターンを続けて作成できます。 

② Edit Old (作成済データ編集） 

ファイル名を入力。ただし，データの追加は不可。 

2 . Display Data (作成済データ表示) 

ファイル名を入力すると，そのファイルの登録文字数とパターンが表示。 

3 . Print Out (プリンタ出力） 

ファイル名を入力すると，そのファイルのすべてのパターンが続けてプリンタに出力 
されます。 


00D2 


A c 1 
A c D 
0 0 0 
0 0 0 


K 

F 3 R 

U_loo 

u B し 3 
♦* B T X p 
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次に出カサンプルを示しておきます c 


PC-Techhnoaj9800 


任意のフォント作成 • 出力 


1 save ' f-eait 

1000 CLEAR ，& H1F00 : DEF SEG=&H1F00 : SCREEN 0,0 

1010 WIDTH 80,25 : DEFINT A-ZjROLL 199 

1020 K=31•• DIM K(K),P$(K) JCONSOLE 0,25.0,0 

1030 FOR 1=0 TO15:READ P$(I):NEXT I 

1040 DATA ••••，••••，.•••，— ##, •參••，•拳.#, • . ### 

1050 DATA #•• •,#• • 參， •••. • 參, 

1060 FOR 1=0 TO &H9E:READ D$ / Bit Image Print 
1070 D=VAL("&H"+D$)：P0KE I,D ^ Machine Code 
1080 NEXT I 

1090 RESTORE 2420: FOR I=&H200 TO &H229:READ D$ 'G-VRAM 
1100 D=VAL("&H"+D$)：P0KE I,D " Machine Code 
1110 NEXT I 

1120 PRINT ■=== User-Defined Character ===" 

1130 PRINT "1 *• Edit 2 •• Display Data 3 •• Print Out" 
1140 INPUT "Select No.(Press RETURN to END)'；NO 
1150 CLS: H$= u 0123456789 ABCDEF 1 * 

1160 UK=0:BIT=&H0 :DT=&H250 

1170 ON NO GOSUB ^FEDIT,^DDISP,^POUT 

1180 CLS :IF NO=0 THEN CONSOLE 0,25,1,0：END 

1190 ERASE K:DIM K(K):G0T0 1120 

1200 *FEDIT 

1210 INPUT 8 1•• Edit New 2 •• Edit Old" : NU 
1220 IF NU=1 THEN CN=0:GOTO 1300 
1230 'FILES : PRINT 

1240 INPUT "Enter File Name to Edit *；F$：BLOAD F$ 

1250 INPUT "^nter Character No♦ to Edit ";CN 
1260 CLS 

1270 J=UK:CAD=DT+CN*32 s FOR I=CAD TO CAD+31 
1280 DP=PEEK(I):K(J)=DP:J=J+1 
1290 NEXT I 

1300 PRINT _==== Font Editor ====_ 

1310 PRINT* Press Cursor Key to Move" 

1320 PRINT" Press SPACE BAR to Set/Reset Dot" 

1330 PRINT" Press RETURN when Done" 

1340 IF NUOl THEN GOSUB *DISP : GOTO 1390 
1350 LOCATE 2,5:PRINT H$ 

1360 FOR 1=0 TO15 

1370 LOCATE l,I+6iPRINT HEX$(I);STRING$(16/•") 

1380 NEXT 

1390 ’ - Font Editor - 

1400 N=0 :CR$=CHR$(13)：SG=VARPTR(K(0),1):GV=&H200 
1410 LT$=CHR$(28)：RT$=CHR$(29) 

1420 UP$=CHR$(30) : DN$=CHR$(31) 

1430 *START 

1440 CALL GV(SG) ' G-VRAM Display 
1450 X=N MOD 16 : Y=N ¥ 16 : LOCATE X+2,Y+6 
1460 K$=INPUT$(1) 

1470 IF K 丰く〉 1 * 1 * THEN *KINP 

1480 IF (K(Y*2+X ¥ 8) AND 2^(7-X MOD 8))=0 THEN *DSET 
1490 PRINT _•_; 
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1500 K(Y*2+X ¥ 8)=K(Y^2+X ¥ 8) AND N0T(2、7-X MOD 8)): 

GOTO 兴 START 
1510 *DSET 
1520 PRINT _ ぎ； 

1530 K(Y^2+X ¥ 8)=K(Y*2+X ¥ 8) OR (2"(7-X MOD 8))： 

GOTO *START 

1540 ^KINP 


1550 IF K$=LT$ THEN N=N+1 ：IF N>255 THEN N=255 : GOTO *START 

1560 IF K$=RT$ THEN N=N~1：IF N<0 THEN N=0 : GOTO ^START 

1570 IF K$=UP$ THEN N=N-16: IF N<0 THEN N=N+16 : GOTO ^START 

1580 IF K$=DN$ THEN N=N+16： IF N>255 THEN N=N-16 : GOTO *START 

1590 IF K$=CR$ THEN ^UFD 

1600 GOTO *START 
1610 ' 

1620 . - Urite Font Data - 

1630 *UFD 

1640 J=UK : CAD=DT+CN^32 : FOR I=CAD TO CAD+31 
1650 POKE I,K(J):J=J+1 
1660 NEXT I 

1670 CLSjROLL 199 

1680 INPUT * Continue (y/n) # ；CNT$ 

1690 IF CNT$=V OR CNT$="Y i THEN IF NU=1 THEN CN=CN+1: 

ERASE K：DIM K(K)：GOTO 1350 ELSE 1250 
1700 IF CNT$OV OR CNT$<>_Y_ THEN IF NU=2 THEN 1740 
1710 BYT=32*(CN+1) 

1720 INPUT "Enter File Name to Sa リ e "；F$：BSA^E F$,DT,BYT 


1730 GOTO 1760 

1740 GOSUB *ADDCAL:BYT=32*CNT 

1750 PRINT "Now saving edited data.."；F$：BSAVE F$,DT,BYT 

1760 RETURN 

1770 Data Display 

1780 *DISP 

1790 LOCATE 2,5 : PRINT H$ 

1800 FOR 1=0 TO15 

1810 LOCATE 1,I+6:PRINT HEX$(I)； 

1820 FOR J=0 TO1 

1830 K$=RIGHT$(•0"+HEX$(K((I*2+J)/l)),2) 

1840 PL=VAL( B &H"+LEFT$(K$,1)) 

1850 PR=VAL( B &H ， +RIGHT$(K$,1)) 

1860 LOCATE J*8+2,I+6 
1870 PRINT P$(PL);P$(PR); 

1880 NEXT J 
1890 NEXT I 
1900 RETURN 

1910 / Data Load and Dispaly 
1920 *DDISP 

1930 INPUT "Enter File Name to Load ；F$：BL0AD F$ 

1940 GOSUB *ADDCAL 

1950 LOCATE 2,2:PRINT _CHR NOS•_;0;_-■;CNT-1 
1960 FOR CN=0 TO CNT-l 

1970 LOCATE 2,3：PRINT .Now Shouing NO."；CN 
1980 J=UK：CAD=DT+CN^32 : FOR I=CAD TO CAD+31 
1990 DP=PEEK(I):K(J)=DP:J=J+1 

2000 NEXT I 

2010 GOSUB *DISP 

2020 SG=VARPTR(K(0),1):G い &H200:CALL GV(SG) 

2030 PRINT：PRINT：INPUT "Press RETURN _,A 丰 
2040 ROLL 199:NEXT CN 
2050 RETURN 

2060 / PRINT OUT - 
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2070 *POUT 

2080 INPUT "Enter File Name to Print " ； F$：BLOAD F$ 

2090 GOSUB ^ADDCAL 

2100 BIT=&H0 

2110 FOR CN=0 TO CNT - 1 

2120 J=&H9F:CAD=DT+CN^32 : FOR I=CAD TO CAD+31 

2130 DP=PEEK(I):POKE J,DP:J=J+1 

2140 NEXT I 

2150 LPRINT CHR$(27) ； "10016 " ； ^ Bit image 

2160 CALL BIT 

2170 NEXT CN : LPRINT 

2180 RETURN 

2190 / - Address Calc - 

2200 *ADDCAL 

2210 OPEN F$ FOR INPUT AS 神 1 
2220 C=0 ： A$=INPUT$(8,#1) 

2230 AD=VARPTR(#1)+32:SG=VARPTR(#1,1):DEF SEG=S6 
2240 AD=PEEK(AD)+PEEK(AD+1)*256 
2250 SA=PEEK(AD)+PEEK(AD+1)*256 
2260 EA=PEEK(AD+2)+PEEK(AD+3)*256 

2279 CNT=(EA-SA)/32 

2280 CLOSE #1：DEF SEG=&H1F00 
2290 RETURN 

2300 - Bit I mage Print - 

2310 DATA IE,0E,IF,BF,C0,00,BE,9F,00,33,DB,B1,01,56,57,53 
2320 DATA 51,33,C0,51,B9,08,00,89,05,47,47,E2,FA,59,BF,C0 
2330 DATA 00,32 ， ED,8A,34,8A,54,01,D3,E2,9F,F6,C4,01,75,04 
2340 DATA B0,00,7A ， 02,B0,01,88,05,47,83,C6,02,FE,C5,80,FD 
2350 DATA 10,75,E0,BF,C0,00,B9,02,00,E8,24,00,88,26,BF,00 
2360 DATA E8,1D,00 ， 8A,C4,B2,10,F6,E2,02,06,BF,00,E8,31,00 
2370 DATA E2,E 7,59 ,5B,5F,5E,FE,Cl,43,83,FB,10,75,9F,IF,CF 
2380 DATA 51,32,E4,B1,01,8A,05,0A,C0,74,03,E8,0C,00,02,E0 
2390 DATA 47,FE,Cl,80,F9,05,75,ED,59,C3,8A,Cl,BB,9A,00,D7 
2400 DATA C3,IE,16,IF,B4,11,CD,1A,IF,C3,00,01,02,04,08,00 
2410 G - VRAM Display 

2420 DATA 56,57,1E,C5,37,8B,04,8E,D8,B8,00,B8,8E,C0,BF,00 
2430 DATA 16,B9,10,00,31,F6,8A,04,8A,64,02,26,89,05,83,C6 
2440 DATA 04,83,C7 ， 50,E2,F0,IF ， 5F,5E,CF,00,00,00,00,00,00 


注）作成中のフォントの G - VRAM への表示を 640 X 400 モードにするには次の行を変更して下さい0 


1000… 

•••SCREEN 0,0 

— SCREEN 3, 0 

1010… 

… ROLL 199 — 

— ROLL 399 

1670… 

-ROLL 199 

-> ROLL 399 

2040… 

… ROLL 199 

— ROLL 399 

2430… 

•••DATA 16 

—> DATA 2 F 
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第 10 章 USR 関数文とマシン語 


10-1マシン語ルーチンの呼び方 

10-2 マシン語ルーチンの実行と引数の受け渡し方 

10-2-1 引数がない場合 
10-2-2 USR 関数の引数 
10-2-3 CALL 文の引数 

10~3結果の民し方 

10-3-1USR 関数の場合 
10-3-2 CALL 文の場合 

10-4 BASIC +フシン語ルーチン 
10-4-1 サウンド ビープ 
10-4-2 小文字•大文字変換 
10-4-3 最大値を求める 
10-4-4 文字列を逆に表示 
10-4-5 ROLL200&ROLL400 
10-4-6 アドレス サーチ 



第 10 章 USR 関数 • CALL 文とマシン I 吾 

N 88 -BASIC (86) は命令の豊富さ，実行の速さなどを考えると BASIC インタプリタとしては最 
強のものの1つと言えます。しかし， BASIC よりもさらに高速処理を必要とするもの(例えばサー 
チやソート），さらに BASIC ではサポートされていない機能を引き出すためにはマシン語が必要と 
なってきます。本書ではいろいろマシン語ルーチンが紹介されていますが，この章では N 88 -BASIC 
(86) とマシン語との接点となる USR 関数と CALL 文について説明します。 BASIC からマシン語 
に引数（パラメータ）を受け渡す方法やそれをマシン語ルーチンで処理して BASIC に戻すことなど 
を述べます。 

10-1マシン語ルーチンの呼び方 

BASIC から マシン 語ルーチンをコールしたい場合， N 88 -BASIC (86) では USR 関数または 
CALL 文を用います。 USR 関数は， USR の後に0から9までの数値をつけることによって一度に 
最高10種類まで定義することができます。 CALL 文はコールするアドレスを指定することにより， 
いくつも定義できます。また， マシン 語ルーチンに渡す引数（パラメータ）は， USR 関数では1 
つ， CALL 文では0から制限なしとなっています。 

次に両者の設定法を述べます。 

USR 関数 

DEF SEG ニセグメントアドレス（実行セグメント） 

DEF USRn = オフセットアドレス（実行開始番地） 

変数名 =USftn (数値 or 変数 or 式） 

I I 

型 (0-9) 引数 

CALL 文 

DEF SEG = セグメントアドレス（実行セグメント） 

変数名=オフセットアドレス（実行開始番地） 

CALL 変数名（変数名，変数名， .） 

I 

引数（整数型） 

この USR 関数と CALL 文との実行のしかたと機能の違いをまとめたのが表 10-1 です。 
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種類 

設定法 

USR 関数 

CALL 文 

セグメント指定 

(1 F 00 H のとき） 

DEF SEG = & H 1 F 00 

DEF SEG = & H 1 F 00 

オフセット指定 (20 H のとき） 

DEF USR = & H 20 

SUB = & H 20 

引数設定と実行 

•引数は1個だけ 

• 引数はかならず必要 

(不要のときはダミーを入れる〉 

•直接 • 関接に設定可 

A = USR (100) 

B =1 : A = USR ( B ) 

• 引数は整数，単精度，倍精度，文字型の 

の4种: 

•引数は加減算など演算が可能 

• 引数はいくつでも可 

•引数がなくても可 

• 引数は変数に代入する必要がある 

A %=5 : CALL SUB ( A %) 

•引数は整数，単精度，倍精度，文字型の 

4種（混合可） 

• 引数は演算不可 

注 意 点 

マシン語ルーチンで AL の値を変更して 

BASIC に戻すと Type mismatch エラー 

と なる。 しかし， XORAX , AX として 

IRET するとエラーとはなりません。 

AL の値を変更しても可 

BASIC に戻るとき 

IRET 

IRET 


表 10-1USR 関数 • CALL 文の比較 


次に実際の使用例をあげます。 


型 


実行開始番地 


引： 

数 


実 行 

0 

DEF 

USR= &H0 

ダ 




— 

A = USR(0) 

1 

DEF 

USR1: 

= &H20 

整 


数 


型 

A% = USR1(&H100) 

2 

DEF 

USR2 = 

= &H50 

実 

数 

型 

演 

算 

B=1 : C=2 










A = USR2(B+C) 

3 

DEF 

USR3 = 

= &H100 

文 

字 

列 

間 

接 

B$= ” ABC” 










A$=USR3(B$) 

4 

DEF 

USR4 = 

= &H120 

文 

字 

列 

直 

接 

A$=USR4(”XYZ”) 

5 

DEF 

USR5 = &H150 

文 

字 

列 

演 

算 

B$ = ”ABC” 










A$ = USR5(B$ + ”XYZ”） 


USR 関数 (DEF SEG = &H1F00) の使用例 


249 












実用開始番地 

引 数 

実 行 

SUB = 0 

な し 

CALL SUB 

SUB = &H 20 

整数型 1 個 

A% = 1 

CALL SUB(A%) 

SUB = &H50 

単精度型 2 個 

A = 100 : B = 200 

CALL SUB(A, B) 

SUB = &H120 

倍精度型 3 個 

A# =60000 

B# =70000 

C# =80000 

CALL SUB(A#,B#,C#) 

SUB = &H140 

文字型 1 個 

A$=”ABC” 

CALL SUB(A$) 

SUB = &H160 

文字型 2 個 

A$ = "ABC , 

B$ = ”XYZ” 

CALL SUB(A$, B$) 

SUB = &H200 

文字型 2 個 + 

整数型 1 個 

A$=”ABC” 

B$ = ”XYZ” 

C% = &H1234 

CALL SUB(A$, B$, C%) 


CALL 文 (DEF SEG=&H1F00 ) の使用例 


USR 関数と CALL 文の決定的な違い。 


次に2つのプログラムを見較べて下さい。 


USR 関数 

10 DEF SE6*=&H1D00 
20 DEF USR=&H0 
30 DEF SEG=&H1F00 
40 A=USR(0) 

CALL 文 


10 DEF SEG=&H1D00 
20 SUB=&H0 
30 DEF SEG=&H1F00 
40 CALL SUB 
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save -SAMP2_ 

DEF SEG=&H1F00 
SUB=&H 0 

TIME$= , 00:00:00 , 
CALL SUB 
PRINT TIME$ 

END 


save "SAMP1* 

DEF SEG=&H1F00 
DEF USR=&H0 
TIME$= # 00 ： 00：00 
A=USR(0) 

PRINT TIME$ 

END 


CALL 文による実行 


USR 関数による実行 


タイマールーチン （2 秒間ウェイト） 


TIMER 2 SECONDS 


ORG 0 


0000 

0003 

0006 


B8FF06 

BBD000 

4B 


TIMER ： 
OTLOOP ： 
IN し 00 P: 


MOV 

MOV 

DEC 


AX,06FFH 

BX,00D0H 

BX 


0007 

000A 

83FB00 

75FA 

0006 

CMP 

JNE 

BX,0 

INLOOP 

000C 

000D 

0010 

48 

300000 

75F1 

0003 

DEC 

CMP 

JNE 

AX 

AX,0 

OTLOOP 

0012 

CF 

BACK ： 

IRET 


一見，どちらも同じ機能を果たしているようですが，実は大きな違いがあります。 USR 関数では 
物理アドレス1 D 000 H 番地から実行しますが， CALL 文では1 F 000 H 番地から実行します。つま 
り， USR 関数では，セグメントの指定が変わっても ， DEF USR が指定されたときのセグメント 
が選択されます。これは ， DEF USR がオ旨定されると，ワークェリアにそのときのオフセットとセ 
グメントが書き込まれるためです。ですから，セグメントを いくつ も切り換えるようなプログラム 
では，実行するアドレスを正確に指定するためには，いつも対で指定する (DEF SEG 二 & H 1 D 00 : 
DEF USR 二 & H 0) と良いでしょう。 

このことは考え方によっては， USR 関数でファーコール（セグメント間コール）が行えるという 
ことです。 

これに対して CALL 文では，セグメントの指定が変われば，それからのオフセット番地から実行 
することになります。まあ，これが普通の考え方ですが。 

それではサンプルを示しながら具体的に説明をしていきましょう。 

10-2 マシン語ルーチンの実行と引数の受け渡し方 

10-2-1 引数がない場合 

まずは， BASIC からただ単にマシン語ルーチンを呼ぶためのものです。引数はありません。次の 
例はマシン語による簡単なタイマー（時間待ち）ルーチンで，実行すると2秒間ウェイトした後， 
BASIC に戻ってきます。 


N000000 

0 12 3 4 5 

111111IX 


〆 0 0 0 0 0 0 

0 12 3 4 5 

1J ij 1- 11IX IX 
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10-2-2 USR 関数の引数 

マシン語ルーチンが USR 関数から呼ばれたときは，引数の型が AL レジスタに入ります。その値 
と型は表 10-2-2 のとおりです。 


AL レジスタ 

型 

例 

AL = 2 

整数 型 

X % = 128 

AL = 4 

単精度実数型 

Y ! =789.12 

AL = 8 

倍精度実数型 

Z # =12345678 

AL = 3 

文字 型 

A $ =” XYZ ” 


表 10-2-2 USR 関数の型 


この AL の値によって，マシン語ルーチンの中で引数の型をチヱックすることができます。例え 
ば，文字列を受け渡したいときに，数値が渡されては困る場合に， AL の値を調べて文字型 （3) で 
なければ何も処理をせず BASIC に戻すときなどに使います。 


例） CMP AL ，3 H 

JNE BACK 

BACK ： IRET 

さて引数（またはその情報）は， BASIC が使う8バイトのワークエリアに入ります。これは浮動 
小数点アキュムレーター (Floating Point Accumulator = FAC ) と呼ばれています。 

引数が数値の場合には DS : BX に FAC の5バイト目または FAC の先頭アドレスが入っていま 
す。実際の引数は，この FAC の中に各型に応じて次のように格納されて渡されます。 

• 整数型のとき 

FAC の5バイト目を 〔 BX 〕 レジスタが指しており，そこに引数の下位8ビットが入り，6 
バイト目に上位8ビットが入ります。 

• 単精度実数のとき 

FAC の5バイト目を 〔 BX 〕 レジスタが指しており，5バイト目から8バイト目までの4バ 
イトに内容が入ります。 FAC の8バイト目は指数部になっており，（指数一 128) の値が入りま 
す。小数点は仮数部の最上位ビットの左にあると想定します。7バイト目は仮数部の最高部7 
ビットを保持します。このバイトの最上位ビットは符号を示し，〇で正，1で負を表します。 

6バイト目と5バイト目は，それぞれ仮数部の中部と最低部の8ビットを保持します。 
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• 倍精度実数型のとき 

FAC の1バイト目を 〔 BX 〕 レジスタが指しています。5バイト目から8バイト目までは単 
精度実数型と同じように指数部と仮数部の上位3バイトが入ります。1バイト目から4バイト 
目には仮数部の下位4バイトが入ります。 

• 文字列のとき 

引数が文字列の場合には 〔 BX 〕 レジスタが FAC の5バイト目を指し，そこにストリング • 
ディスクリプタ（文字列の格納情報）の先頭アドレスがセグメントベースとオフセットの形態 
で入れられています。 

FAC はセグメント 60 H , オフセット 1416 H 〜 141 DH にあり，引数の格納状態は図 10-2-2 のよ 
うになります。 


引数の型 

整 


数型 

単精度実数 

型 

倍精度実数 

型 

文字 型 

DS 

FAC のセグメント (60 H ) 

BX 

FAC の5バイト目 (141 AH ) 

FAC の1バイト目 （1416 H ) 

FAC の5バイト目 （141 AH ) 

AL 

2 ' 

4 

8 

3 

1416 H 






仮数（最下位8ビッ 

卜） 


1417 H 






仮数（第6位8ビッ 

卜） 


1418 H 






仮数（第5位8ビッ 

卜） 


1419 H 






仮数（第4位8ビッ 

卜） 


141 AH 

下 

位 

バイト 

仮数（下位8ビッ 

卜） 

仮数（第3位8ビッ 

卜） 

ストリングディスクリブタ 
のオフセット下位バイト 

141 BH 

上 

位 

バイト 

仮数（中位8ビッ 

h ) 

仮数（第2位8ビッ 

卜） 

ストリングディスクリプタ 
のオフセット上位バイト 

141 CH 




仮数（上位8ビッ 

h ) 

仮数（最上位8ビッ 

卜） 

セグメント下位バイト 

141 DH 




指 数 

部 

指 数 

部 

セグメント上位バイト 


FAC 


1 st 

2nd 

3 rd 

4 th 

5 th 

6 th 

7 th 

8 th 


図 10-2-2 USR 関数の引数格納状態 


ストリングディスクリプタは次のようになっています。 


文字列 
の長さ 

リロケーション 
コード 

下位 

上位 


t t - - - 


( BX ) 0-255 00であれば DX 文字列の先頭の 

の値が文字列の オフセットアドレス 


入っているセグ 
メントを示し、 
00以外であれば 
60 H がセグメン 
卜となる。 
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以上の情報をもとにマシン語ルーチンで引数を受け取れば良いことになります。以下，数値（整 
数型）と文字の場合について例を示します。 


0008H 

AX,[BX] 

CS 

DS 

•WORK,AX 


0008 UORK 

0000 8B07 GETPs 

0002 0E 
0003 IF 
0004 A 30800 
0007 CF 

0008 UORK 


①数値（整数型）の場合 


A^=USR(&H1234) 


GETA: MOV CX,[BX] ; CX =& HI 234 


②文字の場合 


A$=USR( M ABC") 


GETP: LDS BX,[BX]; 

MOV CX,[BX]; 


CMP CH,0 ’ 

JE SEGDX 
XOR CH,CH : 

MOV DX,60H ； 

SEGDX: MOV SI,2[BX]; 

MOV DS,DX ; 

MOV AL,[SI]; 


DS : BX = 7 トリングディスクりプタ 
CL= 文字列の長さ（バイト数） =3 
CH= リロケーシヨンコード 
/CH = 0 のとき DX がセグメント \ 

、CH<>0 のとき 60H がセグメント ノ 
IF CH=0 THEN SEGDX 

CH =0 : CX = 文字列の長さ (3) 
CHOO であったので 60 H をセット 
Sl = 文字列の先頭オフセットアドレス 
n q /CH = 0 のとき DX 
く CH<>0 のとき 60H 
AL = 第1文字目 （" A ”） 


では次にサンプルプログラムを示します。数値では & H 1234を文字では、、 XYZ " を引数としてマ 
シン語ルーチンに渡し，それらの引数をメモリに格納するものです。 

引数 &H 1234をメモリに格納 

1 / sa リ e _SAMP3" 

100 DEF SEG=&H1F00 
110 DEF USR=&H 0 
120 A=USR(&H1234) 

130 END 


[WORK] く = &H1234 


H T 1 

u V s p V E 
Q o u o o R u 

E M p p M I p 
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引数 XYZ をメモリに格納 


8B7702 

8EDA 

0E 

07 

BF2800 


# 

SEGDX ： MOV SI,2[BX] 

MOV DS,DX 
PUSH CS 
POP ES 

MOV DI,OFFSET DATA 

GETCHR ： MOV AL,[SI] 

MOV ES:[DI],AL 
INC SI 
INC DI 

001D LOOP GETCHR 


0026 58 

BACK: 

POP AX 

0027 CF 


I RET 

0028 

ESG 

EQU OFFSET $ 
ESEG 

ORG ESG 

0028 

DATA 

RB 03H 


； 

END 


10-2-3 CALL 文の引数 

CALL 文が引数を持っている場合には，引数で指定された変数が置かれている番地のテーブルを 
参照して，引数を受け取るようになります。これを、'引数テーブル"といい，そのセグメントは 
DS , オフセット（開始番地）は BX で示されます。 

引数テーブルは，引数の値の入っている領域の開始番地のセグメントベースアドレスとオフセッ 
卜値が組になっており，高位の番地から低位の番地に向けて順次格納されています。 

これを図示しますと次のページのようになります n 


1 save U SAMP4 M 
100 DEF SEG=&H1F00 
110 DEF USR=&H 0 
120 A$=USR("XYZ") 
130 END 


; 矢关关关关关关*关关关关关关关关关 

A$=USR( M XYZ ") 关 

关关关关关兴关关关*关关兴关关 


0000 

0001 

0003 

0005 

0007 

0009 

000C 

000E 

0010 


50 

3C03 

7521 

C51F 

8B0F 

80FD80 

7405 

B500 

BA6000 


ENTRY ： 


0026 


0013 


PUSH AX 
CMP AL,03H 
JNE BACK 
LDS BX,[BX] 
MOV CX,[BX] 
CMP CH,00H 
JE SEGDX 
MOV CH,00H 
MOV DX,60H 


3 6 8 9 A 

t-H 111 1 
0 0 0 0 0 
CS Qw CD Qv CD 


5 

0 

4 8 7 
0 8 F 
A 6 6 7 2 
8 2 4 4 E 

D F 23 4 
112 2 2 
0 0 0 0 0 
0 0 0 0 0 
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1 f L D A J 

AX,ES:[SI ]; 
SI,4 ： BX ： ; 
BX,ES:[SI]; 


,C.O . OI 


^ 乙 ノウ I 安乂 c / ジノ， r u 


AX=B%=2 

ES:SI に 1 番目の引数のアドレ 
BX = A%= 1 


GETTUO: 


DS :〔 BX 〕- 


8 

9 

10 
II 

(バイト） 


/O) 

オフセット 


セグメント 

_ 

オフセット 


セグメント 

(T\ 

オフセット 

山 

セグメント 


C % (変数値） 


B % (変数値） 


A % (変数値） 


CALL SUB ( A %， B %， C %) の場合 

1 i i 


CALL 文が USR 関数と異なり注意する点は次のとおりです。 

• CALL 文が渡す引数の番地は， USR 関数の場合の FAC の番地ではなく， VARPTR 関数の値 
と同じ変数値の置かれている番地です。 

• CALL 文では複数の引数が与えることができます。また，与えられた引数の番地を介して 
BASIC に値を返すことができます。 

• 引数が文字型の場合には準備される番地はストリング • ディスクリプタの番地です。 

• CALL 文は引数の個数や型については何ら情報を与えません。従って，これらを一致させるこ 
とに注意しなければなりません。 

以下，引数の受け取り方について数値（整数型）と文字を例にとり説明します（文字列の情報に 
ついては USR 関数の場合と同様です)。 


引数が数値（整数型）の場合 
①数値が1個の場合 


A ン o=&H1234:CALL SUB(A^) 


GETONE ： LDS SI,[BX] ; DS: si に引数のアドレス 
MOV AX,[SI] ; AX = &H1234 

②数値が 2 個の場合 


A%=l ： B^o=2:CALL SUB(A # ^,B^) 


s uv s uv 
E o E o 

し M し M 
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③数値が 3 個の場合 


A^=1:B^=2:C%=3 
CALL SUB(A°4,B^,C^) 


GETTHR: LES 
MOV 
LES 
MOV 
LES 
MOV 


SI ， [BX] 

AX,ES:[SI] 

SI,4[BX] 

CX,ES:[SI] 

SI,8[BX] 

DX,ES:[SI] 


ES : SI に 3 番目の引数のアドレス 

AX=C%=3 

ES : SI に 2 番目の引数のアドレス 
CX=B%=2 

ES:SI に 1 番目の引数のアドレス 
DX=A%=1 


引数が文字列のとき 
①文字が1つの場合 


A$=•ABC"：CALL SUB(A$) 


GETSTR ： LDS BX,[BX] 
MOV CX,[BX] 
CMP CH,0 
JE SEGMT 
XOR CH,CH 
MOV DX,60H 

SEGMT: MOV SI,2[BX] 
MOV DS,DX 
MOV AL,CSI ： 


DS : bx ストリングディスクリプタ 

CL :文字列の長さ CH = セグメントコード • 〇〇のとき DX がセグメント 

CH が〇のとき DX がセグメント • 〇〇以外ならば 60 H がセグメント 

SEGMT にジャンプ 

CH=0, CX = 文字列の長さ 

CHOO だったので DX = 60H をセツト 

Sl = 文字列の先頭オフセツトアドレス 
nc； /CH = 0 のとき DX の値 
Ub 、 CH<>0 のとき 60H 
AL= 第 1 文字目 


②文字列が2つの場合 


A$= > ABC B ： B$='XYZ 
CALL SUB (A$,B 丰） 


LES 

si.tBxa 

ES : SI に 2 番目の引数のアドレス 


M0V 

CX,ES:[SI] 

CL = 文字列の長さ 

CH = 

= セグメン 1 

、コ ー ド 

MOV 

SI,ES:2[SI] 

Sl = オフセット 




LES 

DI,4[BX] 

ES : DI に 1 番目の引数のアドレス 


MOV 

AX,ES:[DI] 

AL = 文字列の長さ 

AH = 

= セグメン 1 

、コ ー ド 

MOV 

DI,ES:2[DI] 

Dl = オフセット 





というぐあいになります。これはレジスタを使いわけている方法です。次に同じレジスタを使っ 
ての具体例をあげます。 

これは，2つの引数をメモリに格納するものです。 
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80FD00 

7405 

32ED 

BA6000 

8EDA 

8A04 

268805 

46 

d7 

E2F7 

C3 


CMP CH，00 
002E JE SEGDX 

XOR CH,CH 
MOV DX,60H 
SEGDX: MOV DS,DX 
LP ： MOV AL,[SI] 

MOV ES:[DI],AL 
INC SI 
INC DI 


0030 


LOOP LP 
RET 


C437 

• 

PARA2: LES SI,[BX] 

ES：SI SEGMENT & OFFSET 

268B0C 

MOV CX,ES:[SI] 

CL=LENGTH,CH=SEGMENT CODE 

268B7402 

MOV SI,ES:2[SI] 

OFFSET 

BF3A00 

MOV DI,ES:OFFSET 

DATA1 

1E 

PUSH DS 

SA リ E DS 

E 81200 

0022 CALL STORE 

PARA2=B$ 

1F 

POP DS 

RESTORE DS 


003A 


EQU OFFSET $ 

ESEG 

ORG DA 


003A 

003F 


DATA1 

DATA2 


RS 05H 
RS 05H 


END 


0011 C 47704 
0014 268B0C 
0017 268B7402 
001B BF3F00 
001E E 80100 

0021 CF 


PARA1：LES SI,4[BX] 

MOV CX,ES:[SI] 
MOV SI,ES:2CSI ： 
MOV DI,ESsOFFSET 
0022 CALL STORE 

I RET 


ESjSI 

CL=LENGHT,CH=SEGMENT CODE 
SI=OFFSET 
DATA2 
PARA1=A$ 

BACK TO BASIC 


0022 0E 
0023 07 


STORE ： 


PUSH CS 
POP ES 


ES=CS 


2 つの引数をメモリに格納 
1 saue "abc 

10 CLEAR,&H1F00:DEF SEG =&H1F00 
20 A$=“ABC" 

30 B$= M XYZ - 
40 SUB=0 

50 CALL SUB(A$,B$) 

MON 

h]ClF00 

hDD3A 

003A 58 59 5A 00 00 4142 43 00 00 00 00 00 00 00 00 XYZ ABC 

hJ"B 

Ok 


； 关关关关关关关关兴关关关关关关关关关关关关关关关兴关关 

; * A$="ABC" : B$=•XYZ" ***** 

CALL SUB(A$,B$) 料 **** 

； 关关关关关关关关 * 关关关关关关关关关关关关关关*关关关 


479BE 025679 
22222333333 

0 CS 0 0 0 0 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 0 


0 2 5 9 c D 0 
0 0 0 0 0 0 1 
0 0 0 0 0 0 0 
0 0 0 0 0 0 0 
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save ■abe ノ 

CLEAR,&H1F00:DEF SEG =&H1F00 

A$=*ABC i 

B$='XYZ" 

C^=&H1234 

SUB=0 

CALL SUB(A$,B$,C°^) 

END 


MON 

h]ClF00 
h ： D48_ 

0048 134121 00 00 00 158 59 5Al 00 00 [4142 431 00 00 00 4 XYZ ABC 

h： A B 个 个 | 

Ok C %=& HI 234 B $ = '' XYZ ,/ A $='、 ABC " 


③数値•文字列混合 （3 つ）の場合 


5 A$="ABC* JB$="XYZ - : C^=&H1234 
; CALL SUB(A$,B$,CW 


ORG 0 

THREE ： LES SI,[BX] ； es : Si に 3 番目の引数のアドレス 

MOV AX,ES:[SI] ; AX=C% = &H1234 
LES SI,4[BX] ; ES: SI に 2 番目の引数のアドレス 
MOV €X,ES: CSID ; cl= 文字列の長さ ch= セグメントコード 
MOV SI,ES:2 ： SI ： : Si= オフセット 
LES DI,8[BX] ; es=di に 1 番目の引数のアドレス 
MOV BX,ES:[DI] ; bl= 文字列の長さ BH= セグメントコード 
MOV DI,ES:2[DI] ; Di = オフセット 


では，これもメモリに格納する具体例をあげます。 


数値 . 文字 3 つをメモリに格納 


N0000000 

0 12 3 4 5 6 

IX IX 1* ix IX 111 
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SI,[BX] 

AX,ES:[SI] 

CS 

ES 

DI,ES:OFFSET 

ES:[DI],AX 


ES：SI SEGMENT & OFFSET 
AX=C2 

ES=CS 

DATA1 

PARA3=C% 


002E 

002F 

0030 


C437 

268B04 

0E 

07 

BF4800 

268905 


PARA3 ： 


• 

STORE ： PUSH DS 

PUSH CS 

；SAVE DS 

POP ES 

i ES=CS 


0031 

80FD00 



CMP CH,00 

0034 

7405 

003B 


JE SEGDX 

0036 

32ED 



XOR CH,CH 

MOV DX,60H 

0038 

BA6000 



003B 

8EDA 


SEGDX: 

MOV DS,DX 

003D 

8A04 


し P: 

MOV AUHSI] 

003F 

268805 



MOV ES:[DI],AL 

0042 

46 



INC SI 

0043 

47 



INC DI 

0044 

E2F7 

003D 


LOOP LP 

0046 

IF 



POP DS 

0047 

C3 



RET 

0048 


DA 

EQU OFFSET $ 





ESEG 





0R6 DA 

0048 



DATA1 

RS 05H 

004D 



DATA2 

RS 05H 

0052 



DATA3 

RS 05H 

END 


5 RESTORE DS 


000D 

C 47704 


PARA2 ： 

し ES 

SI,4[BX] 

； ESjSI SEGMENT & OFFSET 

0010 

268B0C 



MOV 

CX,ES:[SI] 

;CL=LENGTH,CH=SEGMENT 

CODE 

0013 

268B7402 



MOV 

SI,ES:2[SI] 

； OFFSET 


0017 

BF4D00 



MOV 

DI f ES：OFFSET 

DATA2 


001A 

E 81100 

002E 


CALL 

.STORE 

； PARA2=B$ 


001D 

C 47708 


PARA1: 

LES 

SI,8[BX] 

;ES:SI 


0020 

268B0C 



MOV 

CX ， ES:[SI] 

； CL= し ENGHT,CH=SEGMENT 

CODE 

0023 

268B7402 



MOV 

SI,ES:2[SI] 

； SI=OFFSET 


0027 

BF5200 



MOV 

DI,ES:OFFSET 

DATA3 


002A 

E 80100 

002E 

♦ 

CALL 

.STORE 

； PARA1=A$ 


002D 

CF 



IRET 

;BACK TO BASIC 



； 关关*关关关关关关关关关关关关关关关关矢****关**关关关兴 

5* A$="ABC * JB$=" XYZ M : C%=&H1234 * 
SUB=0sCALL SUB(A$,B$,C°/o) ^ 

； 关关关*关关关*关关关关*关关关关关关关关关关关关关关关关*关 


H 

S V s P V UV 
E O U 〇 〇 〇 
L M p p M M 


E E 7 
10 0 


0 2 5 6 7 A 
0 0 0 0 0 0 
0 0 0 0 0 0 
0 0 0 0 0 0 
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AX =1234 H 
AX = AX+AX 
AX の値を戻す 


AX1234: 


BACK2: 


10-3 結果の戻し方 

マシン語ルーチンに引数を渡した後，処理を行い BASIC に結果を戻すにはどうすれば良いので 
しようか？答えは簡単です。引数の引き渡しに使ったレジスタを用いて，引数をもらったアドレス 
に格納すれば OK です。以下，順にサンプルプログラムを示しながら説明していきます。 

10-3-1 USR 関数 
①数値（整数型）の場合 

1234 H を引数としてそれを2倍にして戻します。 


引数 I 234 H を 2 倍 

1 'sa^e "AX1234 - 
10 DEF SEG =&H1F00 
20 DEF USR=&H0 

30 A^o=USR(&H1234) < — 引数 &H i2 3 4 
40 PRINT HEX$(A°/o) 

50 END 


run 

2468 

Ok 


AX<=&H1234 ： AX=AX+AX 


②文字の場合 

文字列 ” XYZ " を引数として，それを小文字 \ yz " にするものです。実行後の行番号30に注 
目して下さい。プログラム自身が変わっています。 


引数 XYZ を小文字 


1 ， sa リ e "XYZ" 

10 DEF SEG =&H1F00 
20 DEF USR=&H 0 

30 A$=USR( u X\l a ) < - 引数 ” XYZ ” 

40 PRINT A$ 

50 END 


G 


コ 

X 

B X 
匸 A 一 


Ax 


: n 

X , , X 
A X X B X 
A A c A 
H T 
s V D V p E 
u o D o o R 
p M A M p I 


7 0 7 

0 c 0 

0 B 3 9 8 F 
5 8 0 8 5c 

0 13 5 7 8 
0 0 0 0 0 0 
0 0 0 0 0 0 
0 0 0 0 0 0 
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run 

xyz 

Ok 

1 ist 

1 /sa リ e "XYZ" 

10 DEF SEG =&H1F00 
20 DEF USR=&H 0 

30 A$=USR( "xyz" - 実行後，小文字に 

40 PRINT A 丰 変わっている 

50 END 
Ok 


；关关关关关关关关关兴关关关关关关关 

A$=USR("XYZ - ) 关 
ENTRY s XYZ * 
；* EXIT : xyz * 

♦ 关关 * 关关 * 关*关关关关关关关关关 


0000 

50 


SAVE ： 

PUSH AX 

；SAVE AX=TYPE 

0001 

C51F 


GET: 

LDS BX,[BX] 

5 DSsBX STRING INFO 

0003 

8B0F 



MOV CX,[BX] 

5 CL=LENGTH,CH=SE6MENT 

0005 

80FD00 



CMP CH,00H 


0008 

7405 

000F 


JE SEGDX 


000A 

32ED 



XOR CH,CH 


000C 

BA6000 



MOV DX,60H 

5 IF CH<>0 THEN DS=60H 

000F 

8B7702 


SEGDXs 

MO リ SI,2[BX] 


0012 

8EDA 



MOV DS,DX 


0014 

8A04 


STORE ： 

MOV AL,[SI] 

;AL=STRINGS 

0016 

0420 


CONV: 

ADD AL,20H 

5 AL=SMALL LETTER 

0018 

8804 



MOV [SI],AL 

5 STORE BACK 

001A 

46 



INC SI 


001B 

E2F7 

0014 


LOOP STORE 


001D 

58 



POP AX 

;RESTORE AX 

001E 

CF 



IRET 

;BACK TO BASIC 


10-3-2 CALL 文の場合 
①数値の場合 

ここでは引数が 2 個のときを考えてみましよう。 A% = 100, B% = 200 としてコールし，マシ 
ン語ルーチンで A% と B% の値を入れ替えています。 


2つの引数値を入れ替える 


1 ， sa リ e *CALL2" 

10 DEF SEG =&H1F00 
20 SUB=0 
30 A°/o=100 
40 B ン 。 =200 

50 CALL SUB(A^o,B%) 
60 PRINT 
70 END 

run 

200 100 
Ok 
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C437 

268604 

C47F04 

268B1D 


IE 

CHANGE ： PUSH DS 

；SAVE DS 

80FD00 

CMP CH,00H 


7405 

0025 JE SEGDX 



C 47704 
26880 C 
268B7402 
E 80100 


PARA1：LES SI,4[BX] 

MOV CX,ES:[SI] 
MOV SI,ES:2[SI] 
001A CALL CHANGE 


sa^e CA しし 2 
DEF SEG=&H1F00 
SUB=0 
A$= # ABC - 
*XYZ _ 

CALL SUB(A$,B$) 
PRINT A$,B$ 

END 


000B 268905 
000E 26891C 

0011 CF 


0019 CF 


IRET 


BACK TO BASIC 


run 

AbC 

Ok 


XyZ 


0000 C437 
0002 268B0C 
0005 268B7402 
0009 E80E00 


; 关关关兴*兴关关关关关关关*关*关关关兴关关关关关关关关 

;关 CALL SUB(A$,B$) * 

;关 ENTRY: A$= ， ABC" ： B$='XYZ B * 

; 关 EXIT : A$='AbC" ： B$="XyZ" * 

• 关关关关关关关关*关关关关关关关关关关关关关关关*关关关 

PARA2 ： LES SI,[BX] ； ES ： SI=SEGMENT & OFFSET 

MOV CX,ES:[SI] ； CL=LENGTH,CH=SEGMENT 

MOV SI,ES:2[SI] ; SI=0FFSET 

001 A CALL CHANGE 


②文字の場合 

これも引数が 2 つのときを考えてみます。 A $ 二 、、 ABC ": B $ 二 " XYZ " としてコールし， 
それぞれの真中の文字 B と Y とを小文字にしてみましよう。 

2つの引数を小文字に 


;关关矢***关关关矢光*******关关关矢*关 

;* CALL SUB(A^o,B°4) * 

ENTRY: A°/o=100:B°/o=200 * 
;* EXIT : A^=200 ： B^=100 ^ 

; 关关关关关*关关关*关关关关关关关*关关关关关* 


GET: LES SI,[BX] 

MOV AX,ES:[SI] 
LES DI,4[BX] 
MOV BX,ES:[DI] 


ES:SI=SECOND PARA 
AX=B^=200 
ES:DI=FIRST PARA 
BX=A^=100 


MOV ES:[DI],AX ； 
MOV ES:[SI],BX ; 


STORE AX AT BX AREA 
STORE BX AT AX AREA 


IRET 


BACK TO BASIC 


0 2 5 8 
0 0 0 0 
0 0 0 0 
0 0 0 0 


ABE 
111 
0 0 0 
0 0 0 


c F 2 6 
0 0 1 1 
0 0 0 0 
0 0 0 0 


0 0 0 0 0 0 0 
12 3 4 5 6 7 
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0000 0E 
0001 IF 


START ： 


PUSH 

POP 


5 DS=CS 


0020 

0022 

0025 

0027 

0028 


32ED 

BA6000 

8EDA 

46 

8A04 


002A 0420 
002C 8804 
002E IF 
002F C3 


SEGDX ： 


XOR 

MOV 

MOV 

INC 

MOV 

ADD 

MOV 

POP 

RET 

END 


CH,CH 

DX,60H 

DS,DX 

SI 

AL, ： SI ： 

AL,20H 

[SI],AL 

DS 


SKIP TO MIDDLE 
GET MIDDLE LETTER 
CONV TO SMALL LETTER 
STORE 

RESTORE DS 
BACK TO MAIN 


③ POKE. PEEK を使う場合 

USR 関数や CALL 文を使わなくて直接マシン語ルーチンに引数を受け渡したり，受け取った 
りすることができます。それは ， POKE . PEEK を使う方法で，マシン語ルーチンの決まったェ 
リアに引数を POKE して引き渡し，処理後， PEEK で結果を得るというものです。次にサンプル 
を示します。 

255個以内のデータ数 （ N %) と実際のデータを POKE した後， マシン 語ルーチンでソートし 
BASIC に戻った後， PEEK でソート結果を読み出しています。ちなみにこのソートはバブルソー 
卜と呼ばれるものです。 


POKE - PEEK ての引数受け渡し 

1 sa^e "buble 

100 DEF SEG=&H1F00 

110 RANDOMIZE(VAL(RIGHT$(TIME$,2))) 

120 INPUT "Data Number - ； N 0 /* 

130 POKE &H2F,N°/o 
140 SUB=0 

150 FOR I=&H30 TO &H30+N ン •- 1 
160 DT=INT(RND(1)*100) 

170 POKE I,DT 
180 NEXT 

190 CALL SUB(N^) : PRINT 
200 FOR I=&H 30 TO &H30+N ン •- 1 
210 PRINT PEEK(I)〆 
220 NEXT 
230 END 


• 关兴*关关关关关关关兴关关关 * 关关*关关关关关兴 

5* BUBBLE SORT 

；关关关关关关关关关关 * 关兴关关 * 关关关*关关关 


BB2F00 

SORT ： 

MOV 

8A0F 


MOV 

43 


INC 

8BF3 

LOOP ： 

MOV 

80E400 


AND 


BX,OFFSET DATA 

CL,[BX] ； CL=N0-0F DATA 

BX 

SI,BX ； [SI>DATA OFFSET 

AH,00H 5 CLEAR AH=FLAG 


s 

c s 

D 


2 5 7 8 A 
0 0 0 0 0 
0 0 0 0 0 
0 0 0 0 0 
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关关关兴关关关关关关关关关关关关关关 

关 SOUND BEEP **** 

关关关关关关关关关关关关关关关关兴 * 


50 

• 

ENTRY ： PUSH AX 

8B17 

MOV DX,[BX] 

8AFE 

MOV BH,DH 

B105 

MOV CL,05H 


000D 

8AE9 


MOV CH,CL 

\ CH=COUNTER 

000F 

FECD 


DEC CH 


0011 

8A04 

NEXT: 

MOV AL,[SI] 

5 AL=FIRST 

0013 

8AF0 


MOV DH,AL 


0015 

8A5401 


MOV DL,01[SI] 

5 DL=SECOND 

0018 

2AC2 


SUB AL,DL 

5 IF AL く DL THEN SWAP 

001A 

7308 

0024 

JNB NOEX 

5 ELSE NO EXCHANGE 

001C 

8814 


MOV [SI],DL 


001E 

887401 


MOV 01[SI],DH 


0021 

80CC01 


OR AH ， 01H 


0024 

46 

NOEX ： 

INC SI 


0025 

FECD 


DEC CH 


0027 

75E8 

0011 

JNZ NEXT 


0029 

F6C401 


TEST AH,01H 

； SWAP? 

002C 

75DA 

0008 

JNE LOOP 


002E 

CF 

RES ： 

I RET 


002F 

DA 

EQU OFFSET $ 





DSEG 





ORG DA 


002F 


DATA 

RB 01H 


0030 



RS 0FFH 




； 

END 



10-4 BASIC + マシン語ルーチン 

さて，この章のまとめとして， BASIC とマシン語とをリンクしたルーチンをいくつか紹介しま 
す。 

10-4-1 サウンド ビープ 

これは BEEP 音を使っていろいろな音色を出すものです。 RUN すると”，が表示されますの 
で16進数 （0 〜 FFFFH ) を入力して下さい。 


サウンド ビープ 


1 ^ save "SAMP5" 

100 DEF SEG=&H1F00 
110 DEF USR=&H0 
120 DEFINT A - Z 
130 INPUT DT$ 

140 DT=VAL(_&H_+DT$) 
150 A=USR(DT) 

160 GOTO120 


0 13 5 
0 0 0 0 
0 0 0 0 
0 0 0 0 
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0018 

001B 

001D 

001F 

0021 

0023 


0000 50 
0001 3C03 
0003 7529 
0005 C51F 
0007 8B0F 
0009 80F900 
000C 7420 
000E 80FD00 
00117405 
0013 B500 
0015 BA6000 


; 关关关关关兴关关 * 关关关关关关 关关*关 

; * SMALL — 一 > CAPS 关关 

丨关关关关关关矢 *** 关关关关关关关兴 * 

參 

ENTRY ： PUSH AX 


002E 

002E 

0018 

SEGDX ： 

GETCHR: 

002B 


CMP AL,03H 
JNE BACK 
LDS BX,[BX] 
MOV CX,[BX] 
CMP CL,00H 
JE BACK 
CMP CH,00H 
JE SEGDX 
MOV CH,00H 
MOV DX,60H 

MOV SI,02[BX] 
MOV DS,DX 
MOV AL,[SI] 
CMP AL,61H 
JB NEXT 
CMP AL,7AH 


0007 

8ADA 


L00P1: 

MOV 

BL,DL 

0009 

B006 


BEEP1: 

MOV 

AL,06H 

000B 

E637 



OUT 

37H,AL 

000D 

FECB 


ON ： 

DEC 

B し 

000F 

75FC 

000D 


JNE 

ON 

0011 

8ADA 



MOV 

BL,DL 

0013 

B007 


BEEP0: 

MOV 

AL,07H 

0015 

E637 



OUT 

37H,AL 

0017 

FECB 


OFF: 

DEC 

BL 

0019 

75FC 

0017 


JNE 

OFF 

001B 

FECF 



DEC 

BH 

001D 

75E8 

0007 


JNE 

LOOP1 

001F 

FEC9 



DEC 

C し 

0021 

75E4 

0007 


JNE 

LOOP1 

0023 

58 


BACK: 

POP 

AX 

0024 

CF 



I RET 




l 

END 



10-4-2 小文字 • 大文字変換 

英小文字の文字列を入力すると，大文字になって返ってきます。文字列以外のものや文字列でも 
英小文字以外はなにも処理をせず BASIC に戻ります。 


小文字 • 大文字変換 

1 save" し aps•bas 

10 DEF SEG=&H1F00 

20 DEF USR=0 

30 INPUT "String ° ； ST$ 

40 A$=USR(ST$) 

50 PRINT "Caps —> ";ST$ 
60 PRINT : GOTO 30 


2 

0 

7 A 418 A 

7 D 0 6 0 7 
B E A c 2 c 

8 8 8 3 7 3 
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263805 

7205 

268605 

8807 

47 

E2F3 


002B 46 
002C E2EF 


002E 58 
002F CF 


001C 8A07 
001E IF 
001F 8804 


0000 C537 
0002 8B0C 
0004 B000 
0006 IE 
0007 0E 
0008 07 
0009 BB2200 
000C BF2300 


002B 


JA NEXT 
SUB AL,20H 
MOV [SI],AL 


NEXT ： 


001D 


INC SI 
LOOP GETCHR 


BACK ： 


POP AX 
IRET 


END 


; 关关关关关关关关 * 关关关兴关关关关关*关关关关关 

FIND LARGEST NUMBER * 

；关关关关关关关关关关关关兴关关关关关关关关关关关 
♦ 

GETPAR: LDS SI,[BX] 

MOV CX,[SI] 

MOV AL,0 
PUSH DS 
PUSH CS 
POP ES 

MOV BX,OFFSET WORK 
MOV DI,OFFSET DATA 

COMP: CMP ES:[DI],AL 

0019 JB NOSUAP 

XCHG ES:[DI],AL 
MOV [BX],AL 
NOSUAP: INC DI 
000F LOOP COMP 

參 

MOV AL,[BX] 

POP DS 
MOV [SI],AL 


10-4-3 取大値を求める 

まず，データ数を入力すると，データをランダムに作ります。そして，そのデータを画面に表示 
するとともにメモリに書き込みます。その中で最大の数をサーチして BASIC に返します。 


最大値 サーチ 


1 "save - SAMP9" 

100 RANDOMIZE(VAL(RIGHT$(TIME$,2))) 
110 INPUT "Data Number 
120 DEF SEG=&H1F00 
130 SUB=0 

140 FOR I=&H23 TO &H23+N% - 1 
150 DT=INT(RND(1)*100)：PRINT DJ； a " 
160 POKE I,DT 
170 NEXT 

180 CALL SUB(N°/J : PRINT 
190 PRINT "Largest _;N2 
200 END 


F 2 4 7 9 A 
0 11111 
0 0 0 0 0 0 
0 0 0 0 0 0 


4 0 4 
0 2 0 
7 c 8 
7 2 8 

5 7 9 
2 2 2 
0 0 0 
0 0 0 
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0021 CF 


I RET 


8B7702 

8EDA 

0E 

07 

BF3400 


0018 33DB 
001A 03D9 
001C 4B 
001D 51 
001E 57 
001F 8A00 


150 END 


0000 C51F 
0002 8B0F 
0004 80FD00 
0007 7405 
0009 B500 
000B BA6000 


； 关关 * 关关关关兴关关关关兴*关关兴关关关 

5* KAIBUN PRINT ***** 

各关关关关兴兴兴关关关兴关关关关关关*关关 
♦ 

ENTRY ： LDS BX,[BX] 

MOV CX,[BX] 

CMP CH,00H 

000E JE SEGDX 

MOV CH,00H 
MOV DX,60H 

# 

SEGDX: MOV SI,02CBXD 
MOV DS,DX 
PUSH CS 
POP ES 

MOV DI,OFFSET BUFF 

• 

XOR BX,BX 
ADD BX,CX 
DEC BX 
PUSH CX 
PUSH DI 

GETCHR: MOV AL,[BX+SI] 


10-4-4 文字列を逆に表示 

今度は，引数が文字列の場合で，ある文字列をマシン語ルーチンに渡すと，それを逆に表示する 
というものです。文字列を逆にプリントしてもあまり意味がないと思われる読者もいらっしゃるか 
と思いますが，これは言葉の遊びの1つと考えてください。ある文を逆から読んでも同じなのを回 
文（かいぶん）と言いますが，この回文を見つけるのに役立つことでしょう。回文の例として，夕 
ケヤブヤケタなどがあります。英文で有名なのが ， Madam I’m Adam . で続けて読むとちゃんと 
同じになります。では，この回文作成プログラムを紹介しましょう 


文字列を逆に表示 

1 ’sa リ e "KAI.BAS" 

100 DEF SEG=&H1F00 
110 SUB=0 

120 INPUT "String " ； ST$ 
130 CALL SUB(ST$) 

140 PRINT "Kaibun = _;ST 丰 


0022 


ES6 

EQU OFFSET $ 


ESEG 


ORG ESG 

WORK 

RB 01H 

DATA 

RB 0FFH 

♦’ 

END 


E 13 4 5 
0 1111 
0 0 0 0 0 
0 0 0 0 0 


2 3 
2 2 
0 0 
0 0 
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0021 

0024 

0025 

0026 


SI,[BX] 

SI,ES:[SI] ； GET PARA FROM BASIC 

CX,GVRAM ； CX=16K 

CX,SI ； CX=NO,OF BYTES TO ROLL 

DI，DI ； DI=GVRAM OFFSET START 


0028 5F 
0029 59 
002A 268A05 
002D 8804 
002F 47 
0030 46 
0031 E2F7 
0033 CF 

0034 


0034 


C437 GETP: 

268B34 

B 90040 

2BCE 

33FF 


MO リ ES:[DI],AL 
DEC BX 
INC DI 

001F LOOP GETCHR 

♦ 

PICKUP ： POP DI 
POP CX 

STORE ： MOV AL,ES:[DI] 
MOV [SI],AL 
INC DI 
INC SI 

002A LOOP STORE 

IRET 

ES6 EQU OFFSET $ 

ESEG 
ORG ESG 

BUFF RB 0FFH 

• 

END 


10-4-5 ROLL 200 & ROLL 400 

ROLL 200 や ROLL 400 やそれ以上のロールアップができるのです。引数は通常のロールアップ 
の指定に80を掛けたものにして下さい。例えば， ROLL 200 とするには， DT % =200 * 80として 
CALL して下さい。引数を80の倍数以外にすると斜めにスクロールします。 ROLL 400を実行する 
には，ソースリストの G VRAM 4000 H と GEND 3 E 80 H に対応するところをそれぞれ8000 H ， 7 
D 00 H に変えて下さい。 


1 "save "R0" 

10 WIDTH 80,25: SCREEN 0,0 
20 LINE (0,0)-(639,199),l,BF 
30 PUT(0, 180 ),KANJI(&H3441) 
40 DEF SEG=&H1F00 
50 RL=0 
60 D%=200 关 80 
65 INPUT A 
70 CALL RL(D^) 

80 END 


4000 

3E80 


; 关关关关关关关关*关关关 关关关 关兴关 关关关 

ROLL 200: ROLL 400 ^ 

；关兴关关关关关关关兴关 * 关关关关关*关关关 

GVRAM EQU 4000H 
GEND EQU 3E80H 


; 16K BYTES. 8000H FOR ROLL 
; GVRAM END ADD. 3E80H*2 く = 


8 F 
6 B 7 2 
2 4 4 E 


s uv V B R 

Eo o u o 
し M M s X 


0 2 5 8 A 
0 0 0 0 0 
0 0 0 0 0 
0 0 0 0 0 


0 0 
0 0 
4 d 
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DON ： m\J AL,0DH 5 DISP ON 

OUT 0A2H,AL 

POP CX ; RESTORE REGS 

POP DI 
POP SI 
RET 

♦ 

END 


000C 

B800A8 

BLUE ： 

MOV AX,0A800H 

；ROLL BLUE 

000F 

E 80000 

001F 

CALL ROLL 

0012 

B800B0 

RED ： 

MOV AX, 06000 H 

；ROLL RED 

0015 

E 80700 

001F 

CALL ROLL 

0018 

B800B8 

GREEN: 

MOV AX,0B800H 

；ROLL GREEN 

001B 

E 80100 

001F 

CALL ROLL 

001E 

CF 


IRET 

；BACK TO BASIC 

001F 

56 

ROLL ： 

PUSH SI 

5 SAVE REGS 

0020 

57 


PUSH DI 


0021 

51 


PUSH CX 


0022 

56 


PUSH SI 


0023 

8ED8 


MOV DS,AX 

5 ROLL SUBROUTINE 

0025 

8EC0 


MOV ES,AX 

5 ES=DS=GVRAM 

0027 

FC 


C し D 

；INCREMENT 

0028 

F3A4 


REP MOVSB 

；MOVE BYTES 

002A 

B00C 

DOFF ： 

MOV AL,0CH 

5 DISP OFF 

002C 

E6A2 


OUT 0A2H，AL 


002E 

59 


POP CX 

； CX=SI=NO.OF BYTES 

002F 

33C0 


XOR AX,AX 

； AX=0 

0031 

BF803E 


MOV DI,GEND 

5 GVRAM OFFSET END 

0034 

FD 


STD 

5 DECREMENT 

0035 

F3AA 


REP STOSB 

5 CLEAR THE REST 


10-4-6 アドレスサーチ 

これは， PC - 9801内部の文字列をサーチしてそのアドレスを出力するものです。引数としてサー 
チする文字列 （3 〜5バイト）とセグメントを渡すと，その文字列が格納されているオフセットア 
ドレスを BASIC に返します。文字列が見つからない場合は引数を0にして BASIC に戻していま 

to 


アドレスサーチ ① BASIC 
1 7 save •ADDSER.BAS'* 

100 CLS :A$="==== Address Search for PC-9801 ==== 

110 PRINT A$ : DEF SEG=&H1F00 : KS=0 
120 INPUT "Key Uord - ； KU$ : KLN=LEN(KU$) 

130 POKE &H72.KLN 
140 INPUT "Segment _;SG$ : CLS 
150 SG%=VAL("&H_+SG$) : A=1 

160 FOR I=&H73 TO &H73+KLN-1 


D 2 
0 A 

0 6 9 F E 3 
B E 5 5 5 c 

7 9 B c D E 
3 3 3 3 3 3 

0 CO QD CS CS 0 
QJ Qu 0 CS 
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AL ， [SI] ； AL=First Source byte 

ES:[DI],AL ； Compare First bytes 
FD1 : If equal then Foundl 


001B 8A04 BCOMP ： 
001D 263805 OUTLP: 
0020 7408 002A FD0 ： 


アドレスサーチ②マシン語 


0000 

0003 

0005 

0007 

000A 

000B 

000C 

000E 

000F 

0010 


8B4F02 

8EC1 

8B37 

268B04 

06 

56 

8EC0 

0E 

IF 

B9FFFF 


; 关关关 关关关关关关关兴 * 关兴*关关关关 

ADDRESS SEARCH ^ 

;关 CALL KS(S6%) ★ 

SG ン “OFFSET * 

；关关关关关关关兴关兴关 * 关关关关*兴关 

參 

START ： MOV CX,2[BX] 
MOV ES,CX 
MOV SI,0[BX] 
MOV AX,ES:[SI] 
PUSH ES 
PUSH SI 
MOV ES,AX 
PUSH CS 
POP DS 

MOV CX,0FFFFH 


；Get parameter 
5 from BASIC CALL 

； AX=Segment to search 
；Save ES and SI 
；to return parameter to BASIC 
； Eseg=Segment to search 

；Data Seg=Code Seg 
;CX=No.of bytes (64k) to search 


0013 BB7200 
0016 BE7300 
0019 33FF 


MOV BX,OFFSET NUORD 5 [BX]=No.of keyword 
MOV SI,OFFSET KUIORD ； SI=Keyword address 
XOR DI.DI : DI=0 Offset address found 


8A4402 FD2: 

26384502 

7404 0044 

47 

49 

EBD7 001B 


MOV AL,02H[SI] 5 AL=Third Source byte 

CMP ES:02H[DI],AL 

JZ FD3 

INC DI 

DEC CX 

JMPS BCOMP 


0022 47 
0023 49 
0024 75F7 
0026 33C0 
0028 EB42 


001D 

006C 


002A 8A4401 
002D 26384501 
0031 7404 0037 

0033 47 
0034 49 

0035 EBE4 001B 


INC DI 
DEC CX 
JNZ OUTLP 
XOR AX,AX 
JMPS BACK 


If not found t then AX=0 
Go back to BASIC 


FD1 : MOV AL>01H[SI] ； AL=Second Source byte 

CMP ES:01H[DI],AL 
JZ FD2 
INC DI 
DEC CX 

JMPS BCOMP : If not equal,then start o^er 


POKE I,ASC(MID$(KU$,A,1)) 

A=A+1 
NEXT I 

CALL KS(SG^) 

AD れ SG ン 。： IF AD^=0 THEN BEEP：PRINT "Not Found. ' sGOTO *ED 
PRINT A$ 

PRINT "Key Word : " ； KU$ 

PRINT "Segment : " ； SG$ 

PRINT "Offset : _;RIGHT$(_0000_+HEX$(AD ン。） ,4) 

*ED 

END 


V p 
o M z 
M c J 


7 A E 0 12 
3 3 3 4 4 4 
0 0 0 0 0 0 
0 0 0 0 0 0 


CO 0 0 0 0 0 0 0 0 0 0 

78901234567 

11122222222 
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0044 

8A17 

FD3: 

0046 

80FA03 


0049 

741F 006A 


004B 

8A4403 


004E 

26384503 


0052 

7404 0058 


0054 

47 


0055 

49 


0056 

EBC3 

001B 

0058 

80FA04 


005B 

740D 

006A 

005D 

8A4404 


0060 

26384504 


0064 

7404 

006A 

0066 

47 


0067 

49 


0068 

EBB1 

001B 

006A 

8BC7 


006C 

5E 


006D 

07 


006E 

268904 


0071 

CF 



MOV DL,[BX] 

CMP DL,03H 5 

JE FD5 

MOV AL,03H[SI] 

CMP ES:03H[DI],AL 
JZ FD4 
INC DI 
DEC CX 

JMPS BCOMP 

FD4: CMP DL.04H 

JE FD5 
MOV AL,04H[SI ]； 
CMP ES:04H[DI],AL 
JZ FD5 
INC DI 
DEC CX 
JMPS BCOMP 

♦ 

FD5: MOV AX,DI 5 

BACK: POP SI ; 

POP ES 

MOV ES:[SI],AX ； 

IRET ; 


If DL=3 then Back 


If DL=4 then Back 
AL=Fifth Source byte 


AX=DI=Offset address 
Restore SI & ES 

Return AX to BASIC 
Back to BASIC 


0072 

DATA 

EQU OFFSET $ 



DSEG 



ORG DATA 

0072 

NUORD 

RS 01H 

0073 

KUORD 

RS 05H 


END 
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第 11 章入出カファイル 

11-1入出力装置とファイル 
11-2 変数でファイル指定 
11-3 ファイルバッファ 
11-4 ファイルバッファ使用例 
11-5 高速ブラフイックス•□一夕''— 




第 11 章入出カファイル 


11-1 入出力装置とファイル 

N 88 -BASIC (86) は，本体と入出力装置との情報のやりとりを^ファイル"という概念で行って 
います。そのファイルの指定は，入出力装置を指定する、、デバイス名"と、、ファイル名"で行いま 
す。次に各入出力装置につけられているデバイス名の一覧を表 11-1 にあげます。 


デバイス番号 

デバイス名 

入出力装置名 

入力 

出力 

0 5 H 

KYBD : 

キーボード 

〇 

X 

0 4 H 

S C R n ： 

スクリーン 

X 

〇 

B 2 H 

LPT 1： 

プリンタ 

X 

〇 


CAS 1： 

カセットテープ （1200 ボー） 

〇 

〇 

1 AH 






CAS 2 ： 

(600 ボー） 

〇 

〇 


1 : 

ディスク 1 

〇 

〇 


2 : 

2 

〇 

〇 


3 : 

3 

〇 

〇 


4 ： 

4 

〇 

〇 


5 : 

5 

〇 

〇 

B 0 H 






6 : 

6 

〇 

〇 


7 : 

7 

〇 

〇 


8 : 

8 

〇 

〇 


9 ： 

9 

〇 

〇 


10 : 

10 

〇 

〇 

1 9 H 

COM ： 

RS -232 C ポート 

〇 

〇 


表 11-1 デバイス名の一覧 


11-2 変数でファイル指定 

デバイス 名と ファイル 名をあわせて ファイルディスク リプタと呼ばれます。これは文字変数で表 
わせるために，入出力装置の変更が簡単に行えます。 


F $ = 2 ： DEMO " 

OPEN F $ FOR OUTPUT AS #1 
とすればディスクのドライブ 2 に書き込みが可能です。これを F $ =、'SCRN :"とすれば CRT 
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save B DEVICE,bas - 
’ File I/O sample 
OPEN H KYBD: B FOR INPUT AS #1 
INPUT #1,A$ 

F$= # SCRNt" : GOSUB *FOUT y -— CRT 
F 丰 =-LPTl:-:GOSUB ^FOUT y — PRINTER 
F$= M DEMO" : GOSUB ^FOUT y 一一一 DISK DRIVE 1 
F$="CAS1:' : GOSUB *F0UT / CASSETTE 
CLOSE #1 
END 

/ - rile Sub - 

*F0UT 

OPEN F$ FOR OUTPUT AS #2 
PRINT #2,A$ 

CLOSE #2 
RETURN 


11 - 3 ファイルバッファ 

入出力装置とのやりとりは，ファイルバッファ（窓口）を通じて行われます。このバッファは16 
個用意されており，1個256バイトとなっています。 N 88 -BASIC (86) や N 88 -Disk BASIC (86) 
を起動した後， 

How many files ( 0 —15) ? 

の問いに同時にオープンするファイルの数が指定できます。通常ユーザーが使うバッファは1〜15 
までです。バッファ0は DSKI $ や DSKO $ や FILES を実行したときに，システムが使用します。次 
にファイルバッファがメモリマップ上でどの位置にあるかを，図 11-3 に示します。また，関連する 
ワークエリア（ファイル コントロール ブロック）などの位置もあわせて説明します。 


に， F $= ゃ LPT 1 :"とすればプリンタに出力先が変わります。 

次にキーボードから入力したものを CRT ， プリンタ，ディスクおよびカセットに出力する簡単な 
サンプルプログラムを示します。 

デバイス変更プログラム 


〆 000000000000000 

012345678901234 

1IX 11111IX 1IX 12 0^ 2 
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256 〜4,096バイト 


VARPTR (# n )+32 


ファイルバッファ（入出カバッファ）#0 -#15 
(256 x (ファイル同時オープン数）+ 1) バイト 
物理 I / O コントロール•ブロック （ FCB ) 


VARPTR (# n ) 


1 D 90 H 

1 D 00 H 

セグメント 60 H 


(40 x (ファイル同時オープン数+1))バイト 


物理 I / O コントロール.ブロック 
(24 X 装置タイプ数）バイト 
FAT 用バッファ 

フロッピー…… 256X デバイス数' 

5 M ハード……1,28 0 X デバイス数バイト 
10 M ハード……2,56 0 X デバイス数— 

デバイスコントロ _ル • ブロック （ DCB ) 
(20X デバイス数）バイト 

媒体諸情報 

(DSKF 関数で得られる もの） 


24〜72バイト 


256〜10,496バイト 


20〜200バイト 


144バイト 


ファイルコントロール.ブロック （ FCB ) は次のようになっています。 


アドレス 

(16 進） 

バイト数 

フイールド 

説 明 

0 

1 

ファイル番号 

#0〜#15 (00 H 〜 0 FH ) 

1 

1 

オーブンモード 

40 H …… FOR OUTPUT 

41 H …… FOR APPEND 

80 H …… FOR INPUT 

C 0 H ……ランダムアクセス 

2 

2 

DCB アドレス 

ファイルの属する DCB の先頭アドレス 

4 

2 

次の FCB アドレス 

同ーデバイスに属する次の FCB アドレス 

6 

6 

ファイル名 

ファイル名 （6 文字に未たないときは 20 H ) 

C 

3 

拡張子 

ファイル名の拡張子（ない場合は 20 H ) 

F 

1 

アトリビュート 

ファイルの属性を示す 

7 6 5 4 3 2 1 0 

L 








-< 


-(? 

…アス 
..•非 ァ 

一,0 ...書き込み可能 マシン語 ファイル 

\1•••書き込み禁止 
し1… P オプション 
•"ライトオンリー 
•••リー ド アフター ライト 

キ _ 形式 
スキー 形式 
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第 1 クラスタ 


ファイル内の先頭クラスタアドレス 

ファイルの属性を示すワークエリア 
このフィールドにディレクトリ部が取り込まれ，以後，ここで 

属性のチヱックが行われる。 

フィールドの意味はアトリビュートと同じ 

ファイル番号が対応する装置を示す 
B 0 H ……ディスク 

B 2 H . プリンタ 

1 AH . カセット 

19 H …… COM 
04 H …… CRT 
05 H . キーボード 

ファイルの処理状態を示す 
7 6 5 4 3 2 10 


12 


アトリビュート 

ワーク 


13 


デバイスタイプ 


14 


ファイル 

ステータス 


(◦…未オープン 
\1…オーブン中 

ベ 〇…バッファ書き出し不要 
j …バッファ書き出し必要 

’0…ファイルの途中 
v 1…ファイルの終り 


15 


データエン I 
アドレス 


最終レコードアドレスを示す 


-ブロック番号 
-クラスタ番号 


18 


レコ ー ド•エンド 


最終レコード番号を示す 


1 A 


ネクスト 

レコー ドアドレス 


次のレコードアドレスを示す 


-ブロック番号 
-クラスタ番号 


1 D 


ネクスト 

'コード No . 


次のレコード番号を示す 


1 F 


リザーブ 


システムの予約部分 


20 


ノぐソファ アドレス 


ファイルバッファのアドレスを示す 


22 


データ ポインタ 


シーケンシャルファイルの時，次に読み書きするデータのアド 
レス 


図 11-3 ファイルバッファとワークエリア 
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次に ， Disk BASIC 起動時のファイルバッファのアドレスー覧表を示します。 
これは ROM および Disk のバージョンにより異なることがあります。 


ファイルバッファアドレスー覧表 (DiSK BASIC) 


I OF OPEN PILES I i 2 3 4 5 6 7 8 V H 1112 i31415 


i i 

FCB TOP 

iFDi IFDi tFOi iFDI 1F0I 1FDI iFOi iFOi 1F0I 1FDS lFOi tFOl 1F0I lFOi IFOi IFOi 

BUFFER TOP 

iFF8 2121 2148 2171 2t?8 Ml 2§E8 2111 2138 2161 2188 21Bi 2108 2211 2228 2251 


FCB TOP 

1FF8 1FF8 1FF8 1FF8 1FF8 1FF8 1FF8 IFF8 1PF8 IFF8 1FF8 1FF8 1FF8 1FF8 1FF8 

f i 

BUFFER TOP 

2121 2148 2171 2198 2101 21E8 221@ 2238 2261 2288 22B« 2208 2311 2328 2351 


FCB TOP 

im mi mi 2121 mi 2m mi mi 2^21 im 2121 2121 im 2121 

f X. 

BUFFER TOP 

2248 2271 2298 22Ct 22E8 2311 2338 2361 2388 23B« 2308 24H 2428 2451 

| 0 

Fee TOP 

2148 2I4S 2148 2148 2148 2148 2148 2148 2«48 2143 2143 2143 2148 

r 

BUFFER TOP 

2371 2398 23CI 23E8 2411 2438 2461 2488 2481 2408 2511 2528 2551 

14 

FCB TOP 

2 參 71 2I?S 2«?f 2i?S 2«?l 2f?l 2 參 ? i 2l?i 2 春 71 2171 2171 2f7 會 

BUFFER TOP 

2498 24CI 24E3 25U 2538 2561 2588 2581 2508 2611 2628 2651 

S5 

FCB TOP 

2198 2198 2198 2198 2198 2198 2198 2198 2198 2198 2198 

BUFFER TOP 

25C» 25E8 26U 2633 2661 2688 26Bi 2608 2711 2723 2751 

i a 

FCB TOP 

2ICI 2»C« 2ICI 2901 2101 2101 2ICf 2101 2ICI 2ICI 

IS V 

BUFFER TOP 

26E3 2711 2738 2761 2788 27B« 2708 2811 2828 2851 

1 7 

FCB TOP 

2IE8 2fE8 2»E8 2«E8 2tE8 2IE8 2IE8 2IE8 2tE8 


BUFFER TOP 

28H 2838 2861 2388 28BI 28D8 ml 2928 2951 

f R 

FCB TOP 

2iii 2111 2111 2111 211§ 2111 2111 2ili 

f V 

BUFFER TOP 

2938 2961 2988 29BI 2908 2AH 2A28 2A5I 

!9 

FCB TOP 

2138 2138 2138 2138 2138 2138 2138 

BUFFER TOP 

2Ait 2A88 2ABI 2AD8 2BII 2828 2851 


FCB TOP 

2161 2160 2161 2161 2161 2161 

巻 H 

BUFFER TOP 

2688 2BBI 2808 2Cii 2028 2C5§ 


FCB TOP 

2188 2188 2188 2188 2188 

til 

BUFFER TOP 

2089 2008 2DH 2028 2D5« 
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FCB TOP 

2tet 2161 2181 21Bi 

til 

BUFFER TOP 

2008 2Eii 2E28 2E5I 

113 

FCB TOP 

2108 2108 21D8 

SUFFER TOP 

2FH 2F28 2F5 春 


114 

FCB TOP 

mi mi 

BUFFER TOP 

3128 3i5S 


巷 15 

FCB TOP 

2228 

BUFFER TOP 

3151 



TEXT TOP 2IF8 2221 2348 2471 2598 26Ct 27E3 2911 2A38 2B6t 2C83 2DBI 2E08 311! 3128 325^ 


ちなみに，ファイルバッファアドレス出カプログラムもあわせて紹介しておきます。 
ROMBASIC のときは，130行の FCB . TOP を & H 1 D 00 として下さい。なお，これは日本語 
BASIC が起動されているとアドレスが異なります。 


0 へ SAVE_FCB.PRT 

100 OPEN "SCRN：" FOR OUTPUT AS 1 

110 x PRINT #1,CHR$(27)"Q" ； : REM PC-8023 

120 'PRINT #1,CHR$(15)J : REM MP-82 TYPE - II 

130 FCB.TOP=&H1FD0：REM ROM 1D00H 

140 MAX.FILE=15 

150 / 

160 PRINT #1,"# OF OPEN FILES *； 

170 FOR 1=0 TO MAX.FILE 

180 PRINT #1,USING " ## - ； I ； 


190 NEXT 

200 PRINT #1," 

210 REAL•LINE=(MAX•FILE+1)*5+18 
220 DOT•LINE=REAL.LINE-6 
230 PRINT #1,STRING$(REAL,LINE,) 
240 / 


250 ； FOR J=0 TO15 

260 PRINT #1," F C B TOP - 5 

270 FOR 1=0 TO MAX.FILE 

280 IF I<J THEN PRINT #1,' "jtGOTO ^SKIP-FCB 
290 PRINT #1,HEX$(FCB.T0P+J^&H28 )""； 

300 *SKIP.FCB 

310 NEXT 

320 PRINT #1," 

330 PRINT #1 / #_;:PRINT #1,USING"## " ； J ； 

335 PRINT #1,STRING$(DOT.LINE,) 

340 PRINT #1," BUFFER TOP "5 

350 FOR 1=0 TO MAX,FILE 


360 BUF*TOP=FCB.TOP+(I+1)*&H28 

370 IF I<J THEN PRINT #1 / 5 : GOTO *SKIP.BUF 

380 PRINT #1,HEX$(BUF.TOP+&H100*J)" "5 

390 *SKIP.BUF 
400 NEXT 


410 PRINT #1, 
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PRINT #1,STRING 丰 （ REAL.LINE •--) 

NEXT J 

/ 

PRINT #1 / TEXT TOP 

FOR 1=0 TO MAX*FILE 
TXT•TOP=FCB.TOP+(I+1)*&H128 
PRINT #l,HEX$(TXT.TOP)" B : 
NEXT 

PRINT #1, # " 

PRINT #1,STRING$(REAL.LINE, ■--) 


OPEN JEST' FOR OUTPUT AS #1 
SG=VARPTR(#1,1) 

OF=VARPTR(#l) 

PRINT HEX$(SG),HEX$(OF) 

PRINT HEX$(OF+&H20) ' File buffer 


11-4 ファイルバッファ使用例 

それでは，実際にファイルバッファおよび FCB にどのように書き込まれていくか見てみましょ 

ぅ。 

まず次のプログラムを実行して下さい。なお，ここでは8インチのディスクユニットを例にとっ 
ていますので，ミニをお使いの方や8インチとミニを両方起動している場合にはアドレスが異なり 
ます。また，データが書き込まれる先頭クラスタもディスケットによリ違ってきます。 


run 

60<— FCB セグメント 1FF8<— FCB オフセット 

2018 * ーフアイルバッファ • オフセット 


Ok 
MON 
h]C60 
h ： DlFF8 
1FF8 01^ 

h] j ■ 先頭クラスタ[•デバイスタイプ 

2008 92 00 00 B0 81,92 00 00, 00 00 
h] 


—ファイル番号 
オープンモード 

DCB FCB _ ファイル名 _ アトリビュート 

48 90 1D 00 00 54 45 53 54 20 20 20 20 20 00 

次の レコー ドアドレス 


TEST 


92 00 01 01 

ステータスー 1 最終レコードアドレスレコード No. 

2018 48 21 00 00 00 00 00 00 02 00 00 00 00 00 

h]D 2148 1 ファイルバッファ 


00, 02 H 

1 - 次のレコード No. 

00 00 H! 


2148 00 00 00 00 00 00 
h] A B 

Ok ファイルバッファはすべて 00 


00 00 00 00 00 00 00 00 00 00 


0 0 0 0 0 0 0 0 0 0 0 
23456789012 
44444444555 


0 0 0 0 0 
12 3 4 5 
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次にデータを書き込みます。 


PRINT #1, "ABCDEF" ; 

Ok 

MON 

h]C60 

h]DlFF8 

1FF8 0140 90 ID 00 00 54 45 53 54 20 20 20 20 20 00 

h ： 

2008 92 00 00 B0 83 92 00 00 00 00 92 00 01 01 00 00 
h ： 

2018 48 21[06] 00 00 00 06 00 02 00 00 00 00 00 00 00 
h]D 2148 1 - データポインタ （ 6 文字のデータ） 

2148 4142 43 44 45 46 00 00 00 00 00 00 00 00 00 00 

B データがファイルバッファに格納 


TEST 

H! 

ABCDEF 


さらに続けてデータを書きます。 

このときには， RETURN を押したことになります。 


PRINT #1, M XYZ_ 

Ok 

MON 

h]C60 

h]DlFF8 

1FF8 0140 90 ID 00 00 54 45 53 54 20 20 20 20 20 00 
h ： 


2008 92 00 00 B0 83 92 00 00 00 00 92 00 01 01 00 00 
h ： 

2018 48 21[5S 00 00 00 00 00 02 00 00 00 00 00 00 00 
h]D2148 I データポインタ （ 11 文字のデータ ) 

2148 4142 43 44 45 46 58 59 5A _ _ 00 00 00 00 00 

h] B データ CR LF 

Ok 了ラ 


@丄 TEST 


H! 


ABCDEFXYZ 


ここで長い文字列を書き込んでみましょう。するとディスクをアクセスしました。 


PRINT #1,STRING$(250,) 

Ok 

MON 

h]C60 

h ： DlFF8 

1FF8 0140 90 ID 00 00 54 45 53 54 20 20 20 20 20 00 TEST 

h] レコード No. 次のレコード No. 

2008 92 00 00 B0 83 92 00 01 101 001 92 00 02 |02 001 00 H H 

h ： 

2018 48 21 07 00 00 00 00 00 02 00 00 00 00 00 00 00 H> 
h]D2148 nn 

2148 40_40 40 40 40 _ _ 59 5A 0D 0A 40 40 40 40 40 @@@@@ YZ @@@@@ 

レコード CR LF レコードの残り 
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Dr 01,Sur 00, 
0000 4142 43 
0010 40 40 40 
0020 40 40 40 
0030 40 40 40 
0040 40 40 40 
0050 40 40 40 
0060 40 40 40 
0070 40 40 40 
0080 40 40 40 
0090 40 40 40 
00A0 40 40 40 
00B0 40 40 40 
00C0 40 40 40 
0000 40 40 40 


CR LF 

5A [0D] [0A] 40 40 
40 40 40 40 40 
40 40 40 40 40 
40 40 40 40 40 
40 40 40 40 40 
40 40 40 40 40 
40 40 40 40 40 
40 40 40 40 40 
40 40 40 40 40 
40 40 40 40 40 
40 40 40 40 40 
40 40 40 40 40 
40 40 40 40 40 
40 40 40 40 40 


ABCDEFXYZ @@@@@ 
@@@@@@@@@@@@@@@@ 
@@@@@@@@@@@@@@@@ 
@@@@@@@@@@@@@@@@ 
@@@@@@@@@@@@@@@@ 
@@@@@@@@@@@@@@@@ 
@@@@@@@@@@@@@@@@ 
@@@@@@@@@@@@@@@@ 

@@@@@@@@@@@@@@@@ 

@@@@@@@@@@@@@@@@ 

@@@@@@@@@@@@@@@@ 

@@@@@@@@@@@@@@@@ 

@@@@@@@@@@@@@@@@ 


2158 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 @@@@@@@@@@@@@@@@ 

h ： 

2168 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 @@@@@@@@@@@@@@@@ 

h；TB 

Ok 


バッファが一杯になったため，ディスクに書き込んでいます。また，レコード No •が1つ増えて 
います。 

最後に CLOSE します。ディスクにアクセスしました。 


CLOSE #1 

Ok 

MON 

h ： C60 

h]DlFF8 


00 00 


ファイル番号とデバイスタイプだけが残りすべてクリア 


00 00 00 00 00 00 00 00 00 00 00 00 00 
B0I 00 00 00 00 00 00 00 00 00 00 00 00 


1FF8 101 
h ： 

2008 00 00 00 
h ： 

2018 48 21 00 00 00 00 00 00 02 00 00 00 00 00 00 00 
h]D 2148 

2148 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
h ： 

2158 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
h：TB 

Ok ファイルバッファもすベてクリア 


例では，8インチディスクの 92 H クラスタに書き込みました。 92 H クラスタは，トラック49 
H , サーフェス0,セクタ1となりますので，モニタのダンプ コマン ドで書き込んだ内容を確認して 
みまし よう。モニターモー ドで次の コマン ドを実行して下さい。 


CTRL 丨 D 1，0，49，1, 49, 2 


90000000000000 

154444444444444 

0 

80000000000000 
C 54444444444444 
e 

S 60000000000000 
,44444444444444 
9 

450000000000000 
044444444444444 
0 

40000000000000 
r 44444444444444 


00000000000000 

44444444444444 

00000000000000 

44444444444444 

00000000000000 

44444444444444 


282 







00E0 
00F0 
Dr 01 
0000 
0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
00A0 
00B0 
00C0 
00D0 
00E0 
00F0 


40 40 40 40 40 
40 40 40 40 40 


@@@@@@@@@@@@@@@@ 

@@@@@@@@@@@@@@@@ 

@@@@@ 

データの 終りを示します。 


11-5 高速グラフィックス • ローダー 

この章のまとめとして1つの課題に挑戦してみましょう。その課題とは， PC -8801 の 640 X 200 
モードのカラーグラフィックスをデータとしてディスクに書き込んでおき， PC -9801 上に持って来 
ることです。つまり ， PC -8801で作られたいろいろなカラーグラフィックスを PC -9801 で利用しよ 
うという訳です。 

PC -8801 のグラフィックスは次のようにランダムファイルとして書き込まれているものとしま 

to 


Blue 


レコード#1 


レコード# 4 


レコード#187 


Red 


レコード# 2 


レコ ー ド# 5 


レコード# 188 


Green 


レコード# 3 


レコード# 6 


，コード# 189 


PC -8801 のグラフィック VRAM の青，赤，緑の画面それぞれ16 K を PUT していることになり 
ます。 PC -8801 では BASIC で直接グラフィック VRAM へのアクセスはできませんので，マシン語 
でバンク切り換えした後，ランダムファイルバッファに送り込んで， PUT しています。ちなみにそ 
のプログラムを示します。 


00 0000000000000000 

44 0000000000000000 

0 0 「A 一 000000000000000 
442111000000000000000 
0 

00 A 000000000000000 
44 C 0000000000000000 
e 

00SD 000000000000000 
44 *0000000000000000 
9 

0040000000000000000 

4404000000000000000 

0 

0000000000000000 
r 4000000000000000 

00 >0000000000000000 
4404000000000000000 
0 

00 0000000000000000 
44L 4000000000000000 

00S 0000000000000000 
4 4 >4000000000000000 


0 0 
4 4 


00000000 00 0 0 0 0 0 0 
00000000 00 0 0 0 0 0 0 

0 0 0 0 000000000000 
00000000 00 0 0 0 0 0 0 

00000000 00 0 0 0 0 0 0 
0 0 0 0 000000000000 

0 0 0 0 0 0 0 0 00 0 0 0 0 0 0 
00000000 00 0 0 0 0 0 0 

00000000 00 0 0 0 0 0 0 
0000000000000000 


0 0 

4 4 

0 0 

4 4 


00000000 00 0 0 0 0 0 0 
00000000 00 0 0 0 0 0 0 


00000000 00 0 0 0 0 0 0 
00000000 00 0 0 0 0 0 0 
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PC-8801 用 G-VRAM セーブ 


save SAVE88.RAM" 

关 SAVESUB . for PC-8801 

F$= H GVRAM.88 H 

DEF USR=&HBF00 

DEF USR1=&HBF20 : DEF USR2=&HBF40 
/ ========= Write Macine Code ========= 

RESTORE *SDATA 
FOR 1=0 TO 16*6 - 1 

READ A$:P0KE &HBF00+I,VAL( N &H"+A$) 

NEXT 

^SDATA 

DATA 01,00 ,01,ED,5B,F2,BF,2A,F0,BF,F3,D3,5C,ED,B0 
DATA D 3,5 F,FB,C 9,00 ， 00, 00,00,00,00,00,00,00, 00，00 
DATA 01,00,01 ， ED,5B,F2,BF,2A,F0,BF,F3,D3,5D,ED,B0 
DATA D3,5F,FB,C9,00,00,00,00,00 ， 00 ， 00,00,00 ， 00,00 
DATA 01,00,01,ED,5B,F2,BF,2A,F0,BF,F3,D3,5E,ED,B0 
DATA D 3,5 F,FB,C9,00,00,00,00,00,00,00,00,00,00,00 
========= Input ゾー RAM Address ========= 

ADDR=&HC000 : ENDAD=&HFFFF 

^ ========= Get Visual Data to Disk ========= 

' - Data Destination Set - 

OPEN F$ FOR OUTPUT AS #2 : PAGE=1 
PUT #2,3*(( ENDAD-ADDR)¥256+1) 

/ - Destination Set - 

BUFFER=VARPTR(#2)+9 

POKE &HBFF2,VAL("&H u +RIGHT$(HEX$(BUFFER),2)) 

POKE &HBFF3,VAL(_&H■+LEFT$(HEX$(BUFFER),2)) 

， - リー RAM Top Set - 

POKE &HBFF0,VAL(_&H"+RIGHT$(HEX$(ADDR),2)) 

,POKE &HBFF1,VAL( M &H B +LEFT$(HEX$(ADDR),2)) 

- Loop - 

FOR I=ADDR TO ENDAD STEP 256 
A=USR0(8) : PUT #2,PAGE : PAGE=PAGE+1 
A=USR1(8) : PUT #2,PAGE : PAGE=PAGE+1 
A=USR2(8) : PUT #2,PAGE : PAGE=PAGE+1 
POKE &HBFF1,(PEEK(&HBFF1)+1) MOD 256 
NEXT 

CLOSE #2 
END 


このプログラムで書き出されたファイルを PC -9801 でグラフィック VRAM にロードする1例 
として，フィールド文のバッファの内容を POKE していく方法があります。 

次にそのプログラムを示します。 


PC-9801 用 G-VRAM 口ード 


1 'save "G 8898 

1000 INPUTFILE NAME - ； A$ 

1010 OPEN A$ AS #1 s SCREEN 0,1 

1020 FIELD #1,255 AS BUF$,1 AS B$ : ADR=0 


/ 0 0 0 0 0 0 0 0 00000000000000000000000 0 0 0 0 0 0 0 
01234567890123456789012345 678901234567 
111111111112 22 2 2222 2 23333333333444444 d-4 


0 0 0 0 0 0 
0 0 0 0 0 0 
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FOR 1=1 TO 63 

GET #1,1*3-2 : GOSUB *BLUE 
GET #1,1*3-1 : GOSUB *RED 
GET #1,1*3 : GOSUB ^GREEN 

ADR=ADR+256 
NEXT 

CLOSE : SCREEN 0,0 : END 
关 BLUE 

DEF SEG=&HA800 
FOR J=1 TO 255 

A=ASC(MID$(BUF$,J,1)):POKE ADR+J-1,A 
NEXT 

A=ASC(B$) : POKE ADR+J-1,A 
RETURN 
*RED 

DEF SEG=&HB000 
FOR J=1 TO 255 

A=ASC(MID$(BUF$,J,1)) : POKE ADR+J-1,A 
NEXT 

A=ASC(B$) : POKE ADR+J-1,A 
RETURN 
^GREEN 

DEF SEG=&HB800 
FOR J=1 TO 255 

A=ASC(MID$(BUF$,J,1))J POKE ADR+J-1,A 
NEXT 

A=ASC(B$) : POKE ADR+J-1,A 
RETURN 


これでは，いくら PC -9801 の高速な BASIC でも遅さが気になります。それに青，赤，緑の画面 
にそれぞれ書き込んでいますので3画面とも書き終わるまでに正常な色がでないことになります。 

そこで，ファイルバッファを利用したちょっとしたテクニックとマシン語ルーチンを使って，高 
速書き込みを行ってみましょう。 

BASIC の部分は次のとおりです。 


高速 グラフィックローダー 


1 'sa リ e "HSG- 

1000 SCREEN 0,0 : CONSOLE 0,25,0,1 
1010 INPUTTILE NAME * ； F$ 

1020 DEF SEG=&H1F00 

1030 FOR 1=0 TO &H78 

1040 READ D$:D=VAL(_&H_+D$) 

1050 POKE I,D 
1060 NEXT I 

1070 A=0 : B=&H3F : AD ン 。=0 

1080 OPEN F$ AS #1 

1090 OPEN F 丰 AS #2 

1100 OPEN F$ AS #3 

1110 OlV o =VARPTR(#l,0)+&H20 : SU=VARPTR(#1,1) 

1120 O2°4=VARPTR(#2,0)+&H20 : S2%=VARPTR(#2,1) 

1130 O3%=VARPTR(#3,0)+&H20 : S3^=VARPTR(#3,1) 

1140 CALL A(S1L 01 シ ” S2L02 。 ィ， S3%, 035 O ' First Call 


0 0000000000 0 000000000 0 00 0 0 0 0 
3456789012345678901234567890 
0000000111111111122222222223 

1* 1 iA IX 111-1J 1-1A 1IX IX 111-u ij 1IX IX 1-1IX IX 111 


285 


BF3300 

C437 

E81F00 


关关 * 关关 * 关关关 * 关关 * 关关关关关关关 * 关关 * 关关*关兴关关关关关关关关关关关关关关关关关关矢 

* HIGH SPEED LOADER 
^ PC-8801->PC-9801 GRAPHICS DATA 

关关关关关矢关关矢 * 关关关关关关关矢关关关关 * 关关 * 关关关 ** 关关 * 关关关关关关 * 关关 * 矢 *** 


FIRST CALL 

し al 1 ing sequence 

CALL A(Sl^o,01^,S2^, 02% ,S3^o,03^) 
Return code 
NONE 


GETP: MOV DI,OFFSET DATA 

LES SI ， [BX] 

0027 CALL LOAD ;6th param. 03^ 


0008 

000B 

C 47704 

E 81900 

0027 

LES SI,04H[BX] 
CALL LOAD 

； 5th 

param• 

S3 。 ィ 

000E 

0011 

C 47708 

E 81300 

# 

0027 

LES SI,08HCBXD 
CALL LOAD 

； 4th 

param. 

02°4 

0014 

0017 

C 4770 C 
E80D00 

5 

0027 

LES SI,0CH[BX] 
CALL LOAD 

； 3rd 

param♦ 

S2k 

001A 

001D 

C 47710 

E 80700 

5 

0027 

LES SI,10H[BX] 
CALL LOAD 

； 2nd 

param. 

01 °/。 


1 つのファイルを 3 つのファイル番号でオープンし，それぞれのファイルバッファのアドレスを 
求めています。そのアドレスをマシン語ルーチンに引き渡した後， GET してファイルバッファに 
データを読み込んでいます。その後，マシン語ルーチンで，ファイルバッファからグラフィック 
VRAM に転送するという方法です。マシン語ルーチンは次のとおりです。 


0 3 5 
0 0 0 
0 0 0 
0 0 0 


a 

C 

d 

n 

〇 

c 

e 

s 


70740 D 00 
704C00C0 

475088 E0 
C000BE80 

089040 F0 
0E863BC0 

90F2B 000 
11128000 

87E 87810 
E7053B00 

44E 05480 
0C10C3E0 

7040EB80 
700618 A0 

4DB 20403 

c 082000 c 

08603785 

0E2837BA 

FCF0B543 

10C0BC3F 

8700FEBC 
E 706118 F 

7412EF87 
3C 02010 D 

40884079 

C0EA1078 

0343BA50 

Rw 1pw 001-cs 


3 

p 

E 

T 

s 

9 

8 

12 04 5 ,,,,,,,, 

o ++D2 D387F68F0 
T II I A + N3E712E18 
» > > /IX ^4. E 

1123BD :F 8477809 
=# # # AI B0C43B0B 
I し H E 

TTT し O/OTSAAAAAAAA 
REEEADXOTTTTTTTT 
OGGGCAE し AAAAAAAA 
F NCDDDDDDDD 

0000000000000000 
5678901234567890 
1111122222222223 

1-1-1111-1-1* IX 1-1-1-IX 1-11* 
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DS 

DS 

SI,4[BX] 
SI,[SI] 
AX,0B000H 
TRANS 


RESTORE DS 
SAVE DS 
DS=S2%,SI=02% 
SI=SOURCE OFFSET 
AX 二 RED 
TRANSFER 


IF 

C 57708 
8B34 
B800A8 
E 80100 


POP DS 

LDS SI,8[BX] 
MOV SI,[SI] 
MOV AX,0A800H 
CALL TRANS 

IRET 


RESTORE DS 

DS=SU,SI=OU 

SI=SOURCE OFFSET AD 

AX=BLUE 

TRANSFER 

BACK TO BASIC 


LES SI,[BX] 

MOV DX,ES:[SI] ； DX=AD%=DESTINATION 
PUSH CS 

POP DS ； DS=CS 

MOV BX,OFFSET DATA 


PUSH DS 
LDS SI,[BX] 
MOV SI,[SI] 
MOV AX,0B800H 
CALL TRANS 


SAVE DS 
DS=S3°/o ： SI=035i 
SI=SOURCE OFFSET AD 
AX=GREEN 
TRANSFER 


0054 IF 
0055 IE 
0056 C 57704 
0059 8B34 
005B B 80060 
005E E80D00 


C437 

268B14 

0E 

IF 

BB3300 

IE 

C537 

8B34 

B800B8 

E81A00 


006D CF 


SEC: 


006E 


006E 


006E 


LOAD ： 

MOV AX,ES:[SI] 



PUSH DS 

PUSH CS 

5 SAVE DS 


POP DS 

5 DS=CS 


MOV [DI]，AX 

INC DI 

INC DI 

；STORE param• 


POP DS 

；RESTORE DS 

♦ _ _ _ __ 

RET 

5 RETURN TO MAIN 


006E 8EC0 
0070 B 98000 


TRANS ： MOV ES,AX 
MOV CX,128 


ES = GVRAM SEGMENT 
CX = UORD TRANSFER 


0033 DATA RU 06H 


SECOND CALL 

Cal1ing sequence 

CALL B(AD^) : AD^=DEST OFFSET 
Return code 
NONE 


0020 

C 47714 


LES SI,14H[BX] 



0023 

E 80100 

0027 

CALL LOAD 

； 1st param 

• Sl°/o 

0026 

CF 


IRET 

：BACK TO 

BASIC 


H L 
p ss V V L 
o UD o o A 
p p し M M c 


12 5 7 A 
6 6 6 6 6 
0 0 0 0 0 
0 0 0 0 0 


F 14 5 6 
3 4 4 4 4 
0 0 0 0 0 
0 0 0 0 0 


9 A c E 1 
4 4 4 4 5 
0 0 0 0 0 
0 0 0 0 0 


4 

0 

B 5 
8 0 
6EEF977F3 
2101844 1C 

7ABCDF012 

222222333 

0 0 CS 0 0 0 0 0 0 
0 0 CS 0 0 0 0 0 0 
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8BFA 

MOV DI,DX 

5 DI = DESTINATION 

FC 

C し D 

;INCREMENT 

F3A5 

REP MOVSU 

5 MOVE WORD 

C3 

RET 

；RETURN TO MAIN 


3 5 6 8 
7 7 7 7 
0 0 0 0 
0 0 0 0 
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第 12 章 RS-232C 


12-1 RS -232 C とは 

12-2専用ケーブルの作り方 

12-3 通信モードの指定 

12-4 プ□ブラムの転送 
12-4-1 メモ U —上にある場合 
12-4-2 ディスクファイルにある場合 


12-5 コミュニケーション•プ□ブラム 



第 12 章 RS-232C 


12-1 RS-232C とは 

PC -9801 は， RS -232 C インターフヱイスを内蔵しておりシリアルデータの送受信が行えます。 
RS -232 C とは米国の EIA (Electronic Industries Association ) で規定されたシリアルデータの 
インターフヱイスで，日本でも JIS C 6361-71 として制定されています。 

PC - 9801ではこのインター フヱ イスを使って， RS -232 C インター フヱ イス付きの機器とのデー 
夕交換ができます。データ交換は，ターミナルモードと入出カモードの2通りの方法があります。 
ターミナルモードでは大型計算センターの TSS 端末やオンラインシステムの端末として利用でき, 
入出カモードでは，制御機器，計測機器，他のパーソナルコンピュータなどとデータの交換ができ 
ます。 

この 章では，入出カ モー ドによるデータ交換をとり あげパーソナルコンピュータ 同士でプログラ 
ムやデータの送信•受信を行うことについて考えてみたいと思います。ここでは，実際に PC -9801 
と PC -8801 とを接続してデータ交換を行ってみることにします。 

12-2 専用ケーブルの作り方 

PC -9801 と他の機種とを接続するためには専用ケーブルが必要です。専用ケーブルは RS -232 C 
用オスコネクタ （D SUB 25ピン•オスコネクタ）が2個と10芯程度のマイクコードと呼ばれる多 
芯シールドケーブルがあれば作ることができます。 

RS -232 C 用のコネクタには，25個のピンがありますが，実際はこれらをすべて使うわけではあり 
ません。 PC 同士の接続だけなら極端な場合，3本の信号線があればデータ交換ができます。その3 
本の信号線は，送信データ，受信データ，信号接地の各線です。ここで注意することは，送り手の 
送信データは受け手の受信データに接続しなければデータ交換ができないことです。というのは， 
送信データと受信データの信号線は送り手と受け手では逆になっているということです。 

これは RS -232 C という規格がコンピュータとモデムやカプラを介して他のコンピュータや機器 
に接続するためのものであるからです。そのため，送信データ•受信データという信号線は，コン 
ピュータからモデムやカブラを見ているかぎり不自然ではありません。しかし，直接コンピュータ 
同士を接続するときには，一方の送信は他方の受信というようにピンを入れ替える必要があるわけ 
です。 

次に，専用ケーブルの接続の方法を図 12-2 に示します。 
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説明 

信号名 

保安用接地 

GND 

送信 データ 

TXD 

受信 データ 

RXD 

送信要求 

RTS 

送信可 

CTS 

データセット 
レディ 

デ ー タ端末 
レディ 

DSR 

DTR 

信号グランド 

SG 

データキャ リア 
検出 

DCD 



ピン番号信号名 



GND 

TXD 

RXD 

RTS 

CTS 

DSR 

DTR 

SG 

DCD 


図 12-2 専用ケーブル接続図 


これで PC 同士が接続できます。対になる信号を入れ替えたことで一方から他方がモデムの様に 
見えるためです。 

12-3 通信モードの指定 

N 88 - BASIC (86) の入出力処理は，ファイルの処理と同じ考え方に統一されています。 RS -232 C 
インターフェイスで扱うデータもファイルという概念で取り扱われています。そのため， RS -232 C 
インターフヱイスファイルは，ファイルディスクリプタを持っています。デバイス名は 、' COM : " 
で，それに続いて通信時のデータ形式や制御情報を指定します。 

OPEN '' COM : ①②③④⑤ "••• 

通信形式は5文字のパラメータによって設定します。次にパラメータの意味と指定できる文字を 
一覧表として示します。 

① パリティ . E ( ven ) :偶数パリティチェック 

0 ( dd ) ：奇数パリティチヱック 
N ( one ) :パリティチヱックなし 

binary code のヽ ' 1"の数を奇数もしくは偶数にするように余分の bit を付加し，その binary 
^ code の誤りをチヱックする。 t 

② データビット長 . 7 : 7ビット 

8 : 8ビット 
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(1 ワード （1 文字）を何ビットにするかを指定。) 

③ ストップビット長……1:1ビット 

2 : 1.5 ビット 

3 : 2ビット 

( 字信号に対する個々の符号に対してストップ信号を後行させるビット。) 

④ フロー制御 . X :フロー制御を行う 

N :フロー制御を行わない 

( データ 受信時の バッファオーバーフローのコントロール。 ) 

⑤ シフトコード制御 S :制御を行う 

N :制御を行わない 

{ 英数字やカナコードなどを示す通信制御 。 j 

注 1. ④のフロー制御を指定した場合，データ受信時に バッファ （256 文字）の残りが23文字分 
になると， システムは CTRL - S のコード （19) を出して相手側に通信の一時停止を要求し， 
その後 バッファが 空になった時点で CTRL - Q のコード （17) を出力して送信再開を許可しま 
す。 

注 2. データビット長が7ビットの場合，カナ文字を送受するためには⑤のシフトコード制御を 
行う必要があります。 

例ぇば， 

OPEN、、COM : E 81 XN 〃 FOR OUTPUT AS #1 

とすると，偶数パリティ，データビット長が8ビット，ストップビット長が1ビット，フロー制御 
を行い，シフトコード制御は行わないという指定になり，送信する準備ができたことになります。 

もう1つ大事な指定があります。それは通信速度（ボーレート）です。これは，メモリスイッチの 
2 (SW 2) で行い次のようになります。 

通信速度 . 1: 7 5ボー 

2 :15 0 ボー 

3 : 3 0 0 ボー 

4 : 6 0 0 ボー 

5 :12 0 0 ボー 

6 : 2 4 0 0 ボー 

7 : 4 8 0 0 ボー 

8 : 9 6 0 0 ボー 

[ 1秒間に転送するビット数。) 
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PC -9801 ではシステム既定値として1200ボーが設定されています。ボーレートの設定はモニタ 
モードで次のようにします。例として600ボーにセットしてみます。 


MON 

hDSSU スイッチの状態を調べる 

SU1 SU2 SU3 SU4 SU5 SU6 SU7 

48 05 00 00 00 00 00 

h]SSU2 « SW2 の内容を 4 にする 
05 - 04 

h]SSW — セットされたか確認 

SU1 SU2 SU3 SU4 SU5 SU6 SU7 

48 04 00 00 00 00 00 

h：TB 
Ok 


なお， PC -9801 本体背面のディップスイッチの2の5番目を ON にしておくとメモリスイッチの 
内容は電源を OFF にしても保存されます。 


12 - 4プログラムの転送 

PC -8801 から PC -9801 に BASIC のプログラムを送ることにし，通信形式は次のように指定するも 
のとします。 


通信速度： 6 0 0ボー （ 4 ) 

パリテイ••偶数パリテイ （ E ) 

データビット長： 8ビット （8) 

ストップビット長：1ビット （1) 

フロー 制御：行う（ X) 

シフトコード制御：行う （ S ) 

PC -8801 ではボーレートの設定は，本体背面のジャ > パースイッチで行います。600ボーにするに 
はその4番目にセットします。 

12-4-1 メモリー上にある場合 

プログラムがメモリー上にあるときには， SAVE . LOAD だけで送受信が可能です。 

① PC-9801 で， 

LOAD、'COM : E 81 XS 〃 [ RET ] 

とします。 
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SAVE ''COM : E 81 XS " [ RET ] 

OPEN ''COM : E 81 XS " FOR OUTPUT AS #1 : 

PRINT #1, CHR $(4) : CLOSE 
とします。 

PC -8801 で SAVE 、、 COM : E 81 XS " とすると，転送フォーマットはアスキー形式となります。 
これはディスクにアスキーセーブするのと同じ形式です。そのため， PC 同士の BASIC の中間言語 
が異なっていても受信にはまったく差しつかえありません。1つディスタへのアスキーセーブと違 
うのは，送信した際，プログラムの終りを示すエンドマークがないことです。 

一方， PC -9801 側では， LOAD のときに RS -232 C から送られてくる入力に対して，人間がキー 
入力するのと全く同じ動作でプログラムを格納していきます。そしてプログラムの最後の行を受信 
しても，送信側で エン ドマークを送っていませんので，いつまでたっても LOAD コマン ドから抜け 
出ません0そこで， PC -8801 側で，ファイルをオープンして転送終了のコード （ ET )， CHR $ ( 4 ) 
を送っています 0 この信号を受けると PC -9801 は ， ''Direct statement in file " のエラーが出ま 
すが，正常にプログラムを受信して， コマンド 待ちになります。 

12-4-2 ディスクファイルにある場合 

こんどはディスクからディスクへの転送を行ってみましょう。 

N 88 - BASIC のプログラムを転送する前に，それがアスキーセーブされているかを確認して下さ 
い。次のプログラム①を PC -9801 に入れ，プログラム②を PC -8801 に入れて， PC -9801 から先に実 
行します。すると， PC -9801 のデイスクに PC -8801 のプログラムがアスキーセーブされた形になり 
ます。 


プログラム① (PC-9801) 


1 ^save _FR0M88.bas- 

100 / Receive from PC-8801 

110 INPUT "Fie name " ； F$ 

120 OPEN F$ FOR OUTPUT AS #1 

130 OPEN _C0M:E81XS- FOR INPUT AS #2 

140 LINE INPUT #2,A$ 

150 IF A$=CHR$(4) THEN *DEND 
160 PRINT A$ 

170 PRINT #1,A$ 

180 GOTO140 
190 x 
200 *DEND 
210 CLOSE #1,2 
220 END 
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プログラム② ( PC -8801) 


saue T098.bas 

l ransrer to PC-9801 
INPUT _Fle name - ； F$ 

OPEN F$ FOR INPUT AS #1 
OPEN B C0M:E81XS B FOR OUTPUT AS #2 
IF E0F(1) THEN *DEND 
LINE INPUT #1,A$ 

PRINT A 丰 
PRINT #2,A$ 

GOTO 140 

*DEND 

PRINT #2,CHR$(4) 

CLOSE #1,2 
END 


なお，データファイルの転送も同じプログラムで送受信ができます。 


12-5 コミユニケーシヨン•プログラム 

この章のまとめとして， PC -9801 上で動くファイル転送プログラムを紹介します。 PC -9801 同士 
や PC -9801 とホストコンピュータを接続して RUN すれば，お互いにデータ交換が可能です。 


1 sa^e 'TSS.bas" :，TSS TERMINAL 

100 SCREEN 0,3:UIDTH 80,25：CLEAR ， & H 1 D 00 ：DEFINT A-Z 

110 DEF SE 6 = &H1D00JFOR 1=0 TO &H33 

115 READ DA$:P0KE I,VAL("&h'+DA$):NEXT 

120 CSR♦LOCATE = 0 : CSR.DISP = &H2D : GOTO170 

130 DATA 50,52,06,56,8B, 77,06 ,8E,C6,8B,77,04,26,8A,14,8B 

140 DATA 77,02,8E,C6,8B,37,26,8A,34,B8,A0,00,F6,E6,32,F6 

150 DATA 02,D2,03,D0,B4,13,CD,18,5E,07,5A,58,CF,50,B4,11 

160 DATA CD,18,58,CF 

170 OPEN M C0M1:E81" AS 1 ： UD=80：CONSOLE ,,0,0 
180 FOR 1=1 TO10:KEY I,":NEXT 
190 KEY 1 ,"D-load" : KEY 2,"U-load - 
195 KEY 3,"40-80" : KEY 4,"Exit" : KEY ON 
200 关 MAIN 

210 UIDTH UD,25{CONSOLE 3,25,1,1:LOCATE 0,0 

220 PRINT ； - て - 7 - ■_ 

230 PRINT • Communications Program Terminal Mode * 

240 PRINT * - ' 

250 / 

260 ON KEY GOSUB *PC•TO•HOST,*H0ST•TO•PC,*UIDTH•CHANGE,*EXIT 
270 ON STOP GOSUB ^STOP.KEY,IN ： ST0P ON 

280 < - cominucatin program by Ro_232C - 

290 UHILE 1 
300 *MAIN2 

310 X=POS( 0 ):Y=CSRLIN：CALL CSR•LOCATE(X,Y) 

315 CALL CSR.DISPsC$=INKEY$ 

320 UHILE C$<>"" : PRINT : C$= - ' : UEND 

330 UHILE LOC(1)<>0 J PRINT INPUT$(L0C(1),#1)5 : UEND 


〆 00000000000000 

01234567890123 

IX IX 11 ix iA 11112 2 CN 
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340 WEND 
350 x 

360 *STOP.KEY♦INjSTOP OFF : C$=CHR$(3):STOP ON:RETURN 320 
370 7 

380 ] - 

390 File Transmit Prgram to HOST from PC 

400 / - 

410 *PC.TO.HOST:KEY OFF : CR$=CHR$(13) : LF$=CHR$(10) 

420 ON ERROR GOTO 510 

430 ON STOP GOSUB ^RET:ST0P ON 

440 LOCATE 26,1:PRINT "File Out Mode LOCATE 0,24:PRINT 

450 INPUT 'file name" ； F$：OPEN F$ FOR INPUT AS #2 
460 C$=INPUT$(1 ,#2) :IF E0F(2) THEN 490 ELSE PRINT C$; 

SPRINT #1,C$; 

^70 IF C$=CR$ THEN PRINT #1,LF$ 

480 GOTO 460 

490 GOTO *RET 

500 

510 IF ERR=53 THEN RESUME 530 
520 GOTO 450 

530 PRINT:PRINT F$;_ Not Found." : BEEPJPRINTjFILES：GOTO 450 
540 ' 

550 ^ - 

560 File Transmit Program to PC from HOST 

570 / - 

580 ^HOST*TO.PC：KEY OFF 

590 LOCATE 26,1:PRINT "File in Mode k : LOCATE 0,24:PRINT 
600 ON STOP GOSUB *RET:ST0P ON 

605 INPUT "file name " ； F$:0PEN F$ FOR OUTPUT AS 2 
610 X=POS(0):Y=CSRLINjCALL CSR•LOCATE(X,Y) 

615 CALL CSR.DISP:C$=INKEY$ 

620 IF C$="THEN 630 ELSE PRINT #1,C$; ： C$= - ' 

630 IF LOC(1)<>0 THEN S$=INPUT$(LOC(1),#1): 

PRINT S$; : PRINT #2,S$; 

640 GOTO 610 
650 ^ 

660 ^RET:RETURN *RET2 

670 *RET2:CLOSE 2：STOP OFF:KEY ON:CLS：LOCATE 26,1 
675 PRINT "Terminal Mode ' : LOCATE 0,3：RETURN *MAIN 
680 y 

690 *UIDTH,CHANGE:KEY OFF 

700 IF UD=40 THEN UD=80 ELSE UD=40 

710 GOTO *RET2 

720 / 

730 ^EXIT 

740 CONSOLE ,,0,0 

750 KEY 1/load *+CHR$(&H22) ：KEY 2, "auto ' 

760 KEY 3/go to • : KEY 4,"list " 

770 KEY 5, Vun'+CHR$(13) : KEY 6/sa リ e "+CHR$(&H22) 

780 KEY 7 9 "key : KEY 8 , ’print • 

790 KEY 9,"edit : KEY 10,'cont"+CHR$<13) 

800 CONSOLE 0,24,1,1：WIDTH 80 
810 KEY OFF 

820 PRINT *Communications End! Good-by!! ■: END 
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第 13 章 PC-9801 F 

13-1 システム概要 
13-2 5インチ倍トラックディスク 
13-3 漢字 ROM と日本語 BASIC 
13-4 拡張ブラフィック画面 
13-5 拡張ステートメント 
13-6 PC -9801 E 



第 13 章 PC-98 〇 IF 


本書では各章を通じて， PC -9801 とその姉妹機 PC -9801 F の両方のマシンに対して共通に解説し， 
プログラム 等を紹介して います。 しかし， PC -9801 F は， PC -9801 と異なる機能と特徴を持っている 
ためすべてを包括して説明することはできません。そこでこの章では， PC -9801 F に関して特に PC 
-9801 との相異点をクローズアップして います。 

13-1システム概要 

PC -9801 F は PC -9801 に比べて次の点が大きく異なっています。 

① クロック 8 MHz の 8086 を塔載。 

② 5 インチ倍トラックのフロッピィディスクを内蔵 ( PC -9801 F 1 …… 1 台， PC -9801 F 2…… 
2台)。 

③ 漢字 ROM (JIS 第 1 水準）を標準装備。 

④ N 88 -日本語 BASIC (86) を標準装備。 

⑤ グラフィック VRAM を拡張（カラーの 640 X 400 ドットが 2 画面)。 

⑥ N 88 - BASIC (86) がバージョンアップされて 2.0 となっています。ステートメントがいくつ 
か追加•拡張されています。 

13-2 5インチ倍トラックディスク 

PC - 980 1 F は，本体に 5 インチ両面倍密度•倍トラックのフロッピィディスタを内蔵しています。 
1 台内蔵されているのが PC -9801 FIT , 2 台内蔵されているのが PC -9801 F 2 と呼ばれます。 

容量は 1 台で従来の 5 インチの 2 倍，つまり 640 K バイトあります。これは，トラック数がいま 
までの 40 トラックから 80 トラックに増えているためです。 

また，転送方式が 8 インチと同じ DMA 方式になったため PC -8031-2 W や PC -80 S 31-2 W の 
インテリジェント型に比べ，アクセスのスピードが大幅にアップされています。 

なお， PC -9801 の 5 インチ•ディスケットに収められているプログラムやデータは，付属のユー 
ティリティプログラム DDconv.n 88 で，倍トラック用に変換することができます。 

13-3 漢字 ROM と日本語 BASIC 

漢字 ROM は PC -9801 ではオプションですが PC -9801 F では標準装備になっています。これに 
伴ない，ディスクシステムでは， N 88 -日本語 BASIC (86) が付加されています。そのシステムディ 
スクには， mkfont.n 88 と usfont.n 88 というユーテイリテイプログラムと フォント データ ファイ 
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ルがあり，ユーザーが 7621H 〜 765FH の漢字コードに対応する部分を自由に定義して，ファイルに登 
録 • 更新ができます。 usfont .n 88のフォントデータはシステム起動時に自動的にロードされます0 
なお，日本語 BASIC を起動したくないときは，メモリスイッチ6を1にしておきます。 

13-4 拡張グラフィック画面 

PC- 980 1F は，グラフィック VRAM が PC-9801 に比べ2倍に拡張されています。つまり， 96K バ 
イトの G-VRAM が2組あります。このため， 640X400 ドットのカラーモードで2画面便えます。こ 
れらの G-VRAM はメモリマップ上 A 800 0 H から図 13-4 のように同じアドレスに割り当てられて 
おり，バンク切り換えで表示.アクセスする画面を選択するようになっています。 


G-VRAM I G-VRAM II 

00000 H 

A8000H 

B0000H 

巳 8000 H 


図 13-4 G-VRAM のメモリマップ 



この2組の G-VRAM のどちらをアクセス可能にするかは， I/O ポートの A6H を，またどちら 
の G-VRAM を表示するかは， A4H を用いて制御されます。 

次に，アセンブリ言語でのセレクト方法を示します。なお，これは， BASIC の OUT 文でも実行 
できます。コメントを参照して下さい0 


G-VRAM I 

• アクセス 

MOV AL ，0 

OUT A 6 H,AL : OUT & HA 6, 0 
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•表 示 

MOV AL ，0 

OUT A 4 H , AL : OUT & HA 4, 0 
G-VRAM II 


• アクセス 

MOV 

AL , 1 


OUT 

A 6 H , AL 

: OUT & HA 6,1 

• 表 示 

MOV 

AL ,1 


OUT 

A 4 H , AL 

; OUT & HA 4,1 


13 - 5 拡張ステートメント 

PC - 980 1 F では， N 88 -BASIC (86) のバージョンが 2.0 となり，いくつかのステートメントが追 
加，拡張され，さらに従来のものも いくつか 高速化が画られています。 

次に，これらのステートメントを分類してみます。 


.追 加 

DRAW 

KPLOAD 

拡 張 

SCREEN 

CIRCLE 

LI NE 

ROLL 

高速化 

CLS 2, 3 


これらの使い方を簡単に説明します。 

• DRAW . グラフィック画面サブコマンドによる連続的な図形描画機能。 

直線を組み合わせた図形が簡単に描けます。これは LOGO という言語のタートルグラフィッ 
クスの描き方と共通する点があります。 
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POINT (10 0,10 0 ) 
例） DRAW 、' U 50 R 50 R 50 D 50 L 50" 



(100,100) から Up, Right, Right, Down, Left へそれぞれ 50 ドットずつ線を描きま 
す。もちろん，これらの指示を文字列に代入しても OK です。 

A $ 二 N ' U 50 R 50 R 50 D 50 L 50" 

DRAW A $ 

• KPLOAD . ユーザー定義フォントパターンの登録機能。 

例 ） KPLOAD &H 7621, FP % 

个 

漢字コード フォントパターン 

漢字コードのフォントパターンとして，整数型配列名で指定されたものを登録します。漢字 
コードは7621 H 〜765 FH まで使用可能です。配列には次のように指定します。なお，これは 
配列の第1要素=16 
配列の第2要素=16 

配列の第3要素から第18要素まで次のようにフォントパターンのドットイメージを格納し 
ます。なおこれは mkfont . n 88 のプログラムでドットイメージを作れば，その16進コードが簡単 
に得られます。 
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次に簡単なサンプルプログラムを示します。 


1 • save "kp 1 oad" 

100 '一一 KPLOAD Sample -- 
110 DIM FP^(17) 

120 FP^(0)=16:FP^(1)=16 
130 FOR 1=2 TO17 
140 READ FP$ 

150 FP=VAL( W+FP$) 

160 FP シ 0 (I)=FP 

170 NEXT I 

180 ’KPLOAD &H 762 1,FP ン。 

190 SI$= _1B4B":S0$="1B48" : FC$="7621" 

200 KJ$=KNJ$(SI $)+KNJ$(FC$)+KNJ$(S0$) 

210 PRINT KJ$ 

220 END 

/ Font Pattern Data 

240 DATA FF7F,FF7F,FF7F,781E,781E,781E,781E,781E 
250 DATA 781E,781E,781E,781E,781E,FF7F,FF7F,FF7F 


• SCREEN 

G-VRAM が 2 倍に拡張されたためアクティブページとディスプレイページの指定が 2 倍に 
増えています。次にその指定一覧表を示します。 


ページ番号 

画面モードごとのアクティブページ指定値 

0 

1 

2 

3 

1 

0 

0 

0 

0 

2 

1 

1 

1 

1 

3 

2 

2 

2 

X 

4 

3 

3 

3 

X 

5 

X 

4 

4 

X 

6 

X 

5 

5 

X 

7 

X 

6 

X 

X 

8 

X 

7 

X 

X 

9 

X 

8 

X 

X 

10 

X 

9 

X 

X 

11 

X 

10 

X 

X 

12 

X 

11 

X 

X 


x 印：指定不可 
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デイスプレイ 
ページの値 

画面モードごとの意味 

0 

1 

2 

3 

0 

全ぺージ表示しない 

全ページ表示しない 

全ページ表示しない 

全ペーシ表示しない 

1 

ページ1のみ表示 

ページ1のみ表示 

ページ1のみ表示 

ページ1のみ表示 

2 

ページ2のみ表示 

ページ2のみ表示 

ページ2のみ表示 

X 

3 

X 

ページ1, 2を合成表示 

ページ1, 2を合成表示 

X 

4 

X 

ページ3のみ表示 

ページ3のみ表示 

X 

5 

X 

ページ1, 3を合成表示 

ページ1, 3を合成表示 

X 

6 

X 

ページ2 , 3を合成表示 

ページ2 , 3を合成表示 

X 

7 

X 

ページ1,2,3を合成表示 

ページ1,2,3を合成表示 

X 

8 

全ページ表示しない 

全ページ表示しない 

全ページ表示しない 

全ページ表示しない 

9 

X 

ページ4のみ表示 

X 

X 

10 

X 

ぺージ5のみ表示 

X 

X 

11 

X 

ページ4 , 5を合成表示 

X 

X 

12 

X 

ページ6のみ表示 

X 

X 

13 

X 

ページ4 , 6を合成表示 

X 

X 

14 

X 

ページ5 , 6を合成表示 

X 

X 

15 

X 

ページ4,5,6を合成表示 

X 

X 

16 

全ページ表示しない 

全ページ表示しない 

全ページ表示しない 

全ページ表示しない 

17 

ぺージ3のみ表示 

ページ7のみ表示 

ページ4のみ表示 

ページ2のみ表示 

18 

ページ4のみ表示 

ぺージ8のみ表示 

ページ5のみ表示 

X 

19 

X 

ページ7 , 8を合成表示 

ページ4 , 5を合成表示 

X 

20 

X 

ぺージ9のみ表示 

ぺージ6のみ表示 

X 

21 

X 

ページ7 , 9を合成表示 

ページ4 , 6を合成表示 

X 

22 

X 

ページ8，9を合成表示 

ページ5 , 6を合成表示 

X 

23 

X 

ページ7,8,9を合成表示 

ページ4,5,6を合成表示 

X 

24 

全ページ表示しない 

全ページ表示しない 

全ページ表示しない 

全ページ表示しない 

25 

X 

ページ10のみ表示 

X 

X 

26 

X 

ページ11のみ表示 

X 

X 

27 

X 

ページ10，11を合成表示 

X 

X 

28 

X 

ページ12のみ表示 

X 

X 

29 

X 

ページ10,12を合成表示 

X 

X 

30 

X 

ページ11，12を合成表示 

X 

X 

31 

X 

ページ10,11,12を合成表示 

X 

X 
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• CIRCLE . 円を描くと同時にその内部を塗りつぶす機能が拡張されています。 

書式は次のように最後に F を付けてペイント指定を行います。 


CIRCLE 


( W x , W y ) 
STEP ( X , Y ) 


, く半径〉，[，パレット 1] 


[，〈開始角度〉][，〈終了角度 〉 ]しく比率 〉] [,F [, 


くパレット2> 

くタイルストリンク〉 


例 ） CIRCLE (80,80),50,4,0,5,1, F ,1 


• LINE …… BOX 指定時に塗りつぶしがタイルパターンで行えます。 
次に書式を示します。 


L I NE 


( W xl , W yl ) 
STEP ( X x , Y ,) 


( W x2 , W y2 ) 
STEP ( X 2 , X 2 ) 


[, くパレット 1>] 


B 

BF 


くラインスタイル〉 

くパレット2> ] 

くタイルストリング〉 


例） T $ 二 CHR $(& H 12)+ CHR $(& H 55)+ CHR$W 
LINE ( 0, 0 )—(100,100 ),7, BF ， T $ 


• ROLL (上下左右方向のロール機能が追加） 

上下方向は±399ドット，左右方向は±639ドットの範囲で スクロールで きます。また，スク 
ロールした 後，新たに表われた領域を0でクリアするか （ N を指定）バックグラウンドカラー 
でクリアするか （ Y を指定）を指定することができます。 

次に書式を示します。 

Y 

ROLL [く上下〉 [, く左右〉][， ]] 

A ^ N 

方向ドット数方向ドット数 


例 ） ROLL 50, — 50, Y 
• CLS 2, CLS 3 

オールクリアのスピードが PC -9801 に比べ，約 13—40 倍も速くなっています。 
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13-6 PC -980 IE 

PC -9801 のもう 1 台の姉妹機に PC - 980 IE というのがあります。これは， PC -9801 F とハード 
ウェアのアーキテクチャが同じで，ソフトウェアもコンパチブルになっています。大きな違いは， 
2 DD のディスクと漢字 ROM が内蔵されておらず，デザイン的には PC -9801 と似ており，コンパク 
卜になっていることです。そしてディスクのインターフェイスは， 5インチ 2 D 用しか付いていま 
せん。8インチのディスクドライブを接続するには別売のインターフェイスボードが必要です。5 
インチ2 DD も接続可能ですが，これもインターフェイスボードが必要です。また， N 88 - BASIC (86) 
の ROM はマザーボードにあるため，拡張スロットは6個フルに使用できます。ちなみに， PC - 
9801 E の拡張スロット6と PC -9801 F の拡張スロット4は，8インチディスクのインターフェイス 
ボード専用になっていますので，ボード取り付けの際には注意して下さい。 

なお，本書で紹介していますプログラムは PC -9801 E でも作動します。 
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第 14 章ランダムテクニック 

14-1 行番号〇 

14 - 2 2バイトの数字を上位•下位の1バイトに分ける 
14-3 REM 文の効率 

14-4 エラーメッセージをすべて表示するには 

14-5 マシン語でエラーメッセージを表示 

14-6 未使用コマンドを使用する 

14-7 新しいコマンドを作る 

14-8 8086はリセットがかかつたら何処ぺ9! 

14-9 INKEY$ で力ーソル表示 
14-10 高速 U スト 

14-11 CHR$(13);CHR$(10) と CHR$(13)+CHR$(10) 

との違い 

14-12 〇 UTPUT と AS も変数に使える 

14-13 キーバッファクリア 

14-14 U アルタ Y ムで時間表示 

14-15 モニタモードでファンクシヨンキーを使用する 



h]S26B2 
26B2 0A-00 
h：S26D2 
2602 14 一 00 
h]S26F0 
26F0 IE-00 
h：TB 
Ok 


第 14 章ランダムテクニック 

14-1 行番号0 

BASIC プログラムの行番号は，1〜65529までの整数というのが普通ですが， N 88 -BASIC (86) 
でも，行番号0が使えます。ただし，スクリーンエディット時には，行番号0は使えませんので， 
次のように，間接的に行番号0のテキストを作ります。 

まず，1以上の行番号を持ったテキストを入力します。次に RENUM 0を実行すれば，行番号0 
のテキストができるわけです。 

この場合，1つの行しか行番号を0にできませんが，次の方法では，複数行の行番号を0にする 
ことができます。 

これは RAM 上にあるプログラムテキストの行番号を，直接0にしてしまうもので，一つ間違う 
とプログラム自体をこわしてしまったり，リセットしてしまう可能性がありますので，注意が必要 
です。 

具体的な例をみてみましょう。 

10 PRINT “This line number is 0." 

20 PRINT "This is a 1 sc line 0〆 
30 PRINT "Oh 1 Here is a 1 so zero ! 

モニタモードで，メモリ 内容をダンプし，行番号の部分を 〇 にします。 


s # e I 


0 


& 

- 


0 ■ e 

s S • H 

i s i 0 r 
h i h !e 
T T e z 
■ r. n h 

e .10 0 

夕 b 夕 *— • s 
E . — 
u 〇夕 a 
n s 


e 


1 s 
ai 


27 


E 0 0 0 0 2 
602022 


692273236521 


c E 9 0 2 0 
626072 


0 0 0 2 5 E 
232262 


303E8F 

727246 


939002 

676327 


898015 
6 6 6 2 2 6 


4 0 4 5 0 A 
525627 


2 2 2 E 8 0 
272662 


151- 0/ F p 

060646 


0 2 0 c 2 3 
c 6 c 6 2 7 


1-D 1 0 1-c 
060206 


0 5 0 F 0 1 
0 7 0 6 c 6 


A E 4 31 0 
-061702 


767000 c 030 
A 220206070 
6 , 

•0005E1E90 
4BB 2616160 
0 A 6 

66420000000 
NCDADBCDEF01 
o-JTJ61-6666677_J 
Mhh0h 2222222 h 
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これで完成です。もちろん実行もできます。 


PRINT H This line number is 0* 
PRINT 'This is also line 0._ 
PRINT "Oh i Here is also zero !" 


run 

This line number is 0. 

This is also line 0. 

Oh ! Here is also zero ! 

Ok 

さて，上限の 65529 は 16 進表現で FFF 9 H ですから，まだ上があります。では，行番号を FFFAH 
〜 FFFFH (65530-65535) の方を手で書き直して作ったらどうなるかというと， FFFFH 以外はリ 
ストをしても表示され，65530〜65534の行番号を作ることができ，実行もできます。ただし ， GOTO 
や GOSUB などで，行番号を参照することはできません。 

Undefined 1 me number 

のエラーが 出ます。ただし， ラベルでの 参照はできます。 

特に ， FFFFH (65535) にした行がどうしてリストでは表示されないかというと， BASIC インタ 
プリタでは FFFFH をダイレクトモードのフラグとして扱っているからなのです。 

ただし，このようにしてできた行番号0のあるプログラムをアスキー SAVE , 

SAVE 、'〈ファイル名〉"， A 
しますと， LOAD する時， 

Syntax error 

となって LOAD できなくなりますので注意して下さい （ MERGE も同じ）。ただし，この場合， 
OPEN 、'くファイル名 〉" FOR INPUT AS #1 
LINE INPUT #1， A $ : PRINT A $ 

とシーケンシャルオープンすれば内容がとり出せます。 


0 0 0 
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14-2 2 バイトの数字を上位.下位の1バイトに分ける 

POKE 文では，1バイトしかメモリに書くことができないので，2バイトの数字，例えば，1234 
H などは，上位•下位の1バイトずつに分けて POKE しなければなりません。次にその方法を示し 
ます。 


《方法1》（ただし，0000〜 7 FFFH ) 


¥ ( 整数除算 ) • mod ( 余り ) を使う。 

A=&H1234 

Ok 

? HEX 丰 （A ¥ 256) :’ 上位 1 バイト 
12 
Ok 

? HEX$(A mod 256):’ 下位 1 バイト 
34 
Ok 


《方法2》（0000〜 FFFFH ) 


INT 宣言して，メモリから直接読む。 

DEFINT A 
Ok 

A=&H1234 


DEF SEG=VARPTR(A,1) 

Ok 

? HEX$(PEEK ( リ ARPTR(A))); ，下位 l バィト 


34 

Ok 

? HEX$(PEEK(VARPTR(A) + l)); • 上位 l バイト 
12 
Ok 


《方法3》（0000〜 FFFFH ) 

4 桁の文字列にして，分解する。 


A=&H1234 

Ok 

A$=RI6HT$(" 000 _ +HEX$(A ),4) 


Ok 

? MID$(A$,1,2) ; • 上位 2 ケタ 
12 
Ok 

? MID$(A$,3,2) 下位 2 ケタ 
34 
Ok 
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MID $ で抽出した場合は文字列ですから， 

POKE &H0000,VAL( - &H - +MID$(A$,3,2)) 

POKE するアドレス 

というように VAL 間数を使えば，数字に戻ります。 

14-3 REM 文の効率 

プログラムを わかり易くするために， プログラムの 先頭や，途中に REMARK 文を設けます。 
REMARK 文には 〔 REM 〕 または〔’〕を用いますが，メモリには，異なる形で記憶されます。 


10 REM Test 

MON 

h]C60 

h!D6A4,6A7 

06A4 D8 27 E7 27 、)す 

h]D27D 8,27 E7 

27D8 0F 00 0A 00 01 00 52 45 4D 20 54 65 73 74 00 00 REM Test 

ぱ B I_ 11 _ILJ I_I 

Ok リンク行番号 ス。 REM 

ポインタ 10 ^ 

ス 

1 


REM だと，上に示すように，4バイト使いますが，’だと次に示すように，2バイトですみま 


す0 


10 Test 

MON 

h]C60 

h ： D6A4,6A7 , 

06A4 D8 27 E5 27 パ 

h]D27D8,27E5 , 

27D8 0D 00 0A 00 01 00 27 20 54 65 73 74 00 00 Test 

h：TB |_11_I LI I_I 

Ok リンク行番号 ろ J 
ポインタ 10 ^ 

ス 
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しかし，さっきはなぜ中間コードに REM という文字で入っていたのでしょう。この REM を別の 
文字に変えてみましょう。 

モニタで直接書き直して， ABC にしてみました。リストをとっても REM のかわりに ABC と出 
ます 0 RUN をしても， Syntax error にはなりません。完全に REM 文の働きをしています。 


10 REM Test 

MON 

h ： C 60 

h ] D 6 A 4,6 A 7 

06 A 4 D 8 27 E 7 27 リ，『， 

h ] D 27 D 8,27 E 7 

27 D 8 0 F 00 0 A 00 01 00 52 45 4 D 20 54 65 73 74 00 00 REM Test 

h ： S 27 DE 

27 DE 52-41 45-42 4 D -43 
h ： D 2708,27 E 7 

27 D 8 0 F 00 0 A 00 01 00 4142 43 20 54 65 73 74 00 00 ABC Test 

h：TB 
Ok 
1 ist 

10 ABC Test 

Ok 

run 

Ok 


実は， REM の中間コードは， 00 なのです。インタープリタは， 00 をステートメントとして抽出 
した場合 REM 文として処理し，実行をすぐ次の行に移してしまいます。 

したがつて，今のように手で書き直せば， REM の中間コードは，00の1バイトしか，消費しない 
ことになります。 

次のように， 00 のあとの REM を Test OK に変えてもよいのです。 

10 Test Ok 

ただし，ここで行を修正したり，この行の上で 0 キーをおすと， REM 文ではなくなりますから注 
意して下さい。 

14 - 4エラーメッセージをすべて表示するには 

エラーを起こしたときに表示されるエラーメッセージは，文字列データとして， ROM の中に格納 
されています。 

ダンプリストでみてみると， 
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ROM 内 エラーメッセージの 格納され方 
セグメント E800 H 


NEXT without F 
OR byntax error 
RETURN without 
GOSUB Out of D 
ATA Illegal fun 
ction call O^er 
flow Out of mem 
ory Underined 1 
ine number Subs 
cript out of ran 
ge Dup1icate De 
fin ition Divisi 
on by Zero 111e 
gal direct Type 
mismatch Out o 
f string space 
String too long 
String formula 
too complex Can 
^t Continue Und 
erined user func 
tion No RESUME 
RESUME without 
error Unprintab 
1e error Missin 
g operand し ine 
buffer overflow 
rape read error 
UHILE without 
WEND UEND witho 
ut UHILE FOR wi 
thout NEXT Dupl 
icate label Und 
erined 1abel! Fe 
ature not a^ai1 a 
ble2 FIELD 〇リ erf 
1ou4 Bad file nu 
mber5 File not f 
ound3 Internal e 
rror6 File al rea 
dy open@ Disk 1/ 
0 errorA File al 
ready exists7 In 
put past end9 Di 
rect statement i 
n fi1e8 Bad file 
nameE Bad alloc 
ation tableF Bad 
dri«je numberG B 
ad track/sector I 
Rename across d 
isksH Deleted re 
cordD Disk full ； 
Sequential I/O 
only ： Sequential 
after PUT く File 


努び笄迮 2 諄詫罪 2 3 S 3 ssg 銘 Is 

206F752075656520626144736C70200F6761616E6E4574616965776F746877706E466C726E20206549614944206C6F61107220726C4F616C 
74726F6666766D647572 20 696C7974656E6C4355754D7574736E6F727574 20 7555156965 20 746C7220200E1874696C42476F73206C2F6969 

“羿琵骂 sssis 铐は S 3 詣&努乾3绽尨！2誇！2益詰 

誌羿骂2$装益以 sis ね髭铝 25 SSS 
S 漂男 SS 詰 


206E52046C634F6E6D6F706F5A72746E 20 676D74 20 4E451 16F61 20 7245574C4E 6 C 20 6E49614649466E7265737438147420636544446E5320 


-O-95290D 559 5 909197 E FE49D 52220 C 29004062 EE15F 
57-544205727626666 6 666041777241422624400166 


01355051 DE 9542 
26764266600617 


5853545515 6E 0715 6E 7444747964 6D 72 6E 6963 6F 6513557272656565491E48746565650E0F3533367072797020 6C 65 6E 7672614844753A65 
450C455305 6F 77082070146962 20 7374697220S 6E6E 53 6F 6570 66 7048445775746E723234726472 6F 7264207469 6D6F 6974 6E 7364717974 


E22F19F959AE0C932 4F09F520F^O17E0 
40544667660626677 76266472666542 


F1 95575 E 
66676766 


F 05143619205 B 25 C6 
62667666672667666 


105214475474 6C 72 6E 726569 6E 61 6D 207453 6F 74 66 69527265207554124574 68 63 66 74 6C6F 627572792065756520 6E 7464645273 6F 53 6E 61 
1 F _3204 163 666F 696367 666F 6720 66 531 A742765741465 6C 6762 0F 1D57757469656162 6C6D6F 72644F727072 6E 20612061 13 6963 13 6F 20 


0 4 0 A 


666666666265 

-0000000000000 


90 00000000000000000000 00000000000000000 
67 89A4BCDEF 0123456789 AB CDEF 0123456789 ABC 
BB 3BBBBBBBCCCCCCCCCCCC CCCCDDDDDDDDDDD^D 


0 0 0 0 r — — 

3A53A63A73A83A93AA3AB3AC3AD3AE3AF 3B03B13B23B33B43B53B- 3B 3B!3B'3B,3B3B3B3B3B3C3C3C3C3C3C3C3C3C3C 3C3C 3C3C3C3C3D3D3D3D3D3D3D3D 3D 3D3D 3D3D 
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3 DD 0 20 6 E 6 F 74 
3 DE 0 77 72 69 74 
3 DF 0 0 C 44 69 73 
3 E 00 6 C 6 C 65 67 


といつふうに，アスキーコードで格納されていて，各文字列の先頭に，エラー番号と文字列の長さ 
が入っています。エンドマークは，このエラー番号と文字列の長さ= 0となっています。 

ここに示したダンプリストのアドレスは， ROM のバージョンによって，異なります。次に示すプ 
ログラムは， PC - 9801では，どのマシンでも，エラーメッセージのリストを表示することができます。 


エラーメツセージディスプレイ 


0 ' SAVE * ERROR . DSP " 

100 UIDTH 80,25 
110 OPEN * SCRN : # AS #1 
120 ' 

丄 30 DEF FNPK ( X )= PEEK ( X )+ PEEK ( X + l )*256 
140 DEF SEG =0 
150 " 

160 O 1= FNPK (& H 310): S 1= FNPK (& H 312) 

170 DEF SE 6= S 1 

180 02= FNPK (01+7):03= FNPK (02+140) 

190 AD =03 +&HCF 
200 / 

210 N 0= PEEK ( AD )： LN = PEEK ( AD +1): AD = AD + 2 

220 IF NO =0 AND LN =0 THEN 300 FETCH END MARK ' 

230 PRINT #1, USING " ㈣ ••• B ; N 0; ERROR No . 

240 FOR I=AD TO AD + LN - 1 

250 PRINT #1, CHR $( PEEK ( I )); 

260 NEXT 

270 AD = AD + LN：PRINT #1,'' 

280 GOTO 210 
290 " 

300 END 


プリンターに出力するときは，110行のファイルディスクリプタ SCRN :を LPT 1 :に変えて下 
さい。なお， PC -9801 F ではディスク関連のエラーメッセージは，セグメント FC 00 H , オフセッ 
卜 366 H から格納されています。 


《実行例》 


1 • •• NEXT without FOR 
ム • •• syntax error 

3 ••• RETURN without GOSUB 

4 • •• Out of DATA 

5 ••• Illegal function call 

6 ••• Overf1ou 

(••• Out of memory 


not open = File 
write protected ) 
Disk oft 1 ineJ I 
1 legal operation 


0 E 9 E 

2 3 4 6 

5 41 F 

6 6 16 

c 5 A 9 
6 6 4 6 

9 4 5 4 
6 7 6 7 

6 3 E 1 
4 6 6 6 

4 5 9 2 
16 6 7 

D 4 c 5 

3 7 6 6 

E F 6 0 
6 6 6 7 

5 2 6 F 

6 7 6 6 

0 0 F 0 

7 7 6 2 

F 0 0 c 
6 2 2 6 

0 5 B 1 
2 6 6 6 
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Undefined 1ine number 

Subscript out of range 

Duplicate Definition 

Division by Zero 

Illegal direct 

Type mismatch 

Out of string space 

String too long 

String formula too complex 

Can / t Continue 

Undefined user function 

No RESUME 

RESUME without error 

Unprintable error 

Missing operand 

し ine buffer overflow 

Tape read error 

UHILE without UEND 

UEND without UHILE 

FOR without NEXT 

Duplicate 1abel 

Underined label 

Feature not available 

FIELD overflow 

Bad file number 

File not found 

Internal error 

File already open 

Disk I/O error 

File already exists 

Input past end 

Direct statement in file 

Bad rile name 

Bad allocation table 

Bad drive number 

Bad track/sector 

Rename across disks 

Deleted record 

Disk full 

Sequential I/O only 
Sequential after PUT 
File not open 
File write protected 
Disk ofr1ine 
Illegal operation 


14-5 マシン語でエラーメッセージを表示 

8086 のアセンブリ 言語で プロダラ ミ ング する際 ， BASIC のエラーメッセージを 利用したい場合 
があります。そこで， アセンブラ•レベルでのエラーメッセージ 出力法を考えてみましょう。次の 
プログラムが それです。これは エラーコードを 指定して コール すれば OK です。対応する エラー 
メッセージがない 場合には，V が 表示されます。 

アセンブラで使用するには次のようにします。これは，シンタックスエラーを表示するものです。 


890123456789012379061230231445576901328980124 

1111111111222222323335555566555677776556667 
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50 ERR: 

B 86000 

8ED8 

B800E8 

8EC0 

B 93400 

BB503A 

58 

B600 

♦ 

263A07 SER: 

7412 0030 

43 

268A17 

43 

03DA 


PUSH AX 
MOV AX,60H 

MOV DS,AX_ i 

MOV AXJ0E800H1 ； 
MOV ES,AX 
MO リ CX.34H 
MOV BXJ3A50HI 
POP AX 
MOV DH,0 

CMP AL,ES:[BX] 

JZ FIND 
INC BX 

MOV D し， ES: 匸 BX] 

INC BX 
ADD BX,DX 


ROM SEGMENT 

NO.OF ERROR MESSAGES 
ERROR MESSAGE ADDRESS 
3B28H FOR PC-9801F 


ERROR CODE MATCH 


SKIP ERROR MASSAGE 


sa»v»e errprn . bas 

DEF SEG=&H1F00 

DEFINT E : ER=0 

FOR E=1 TO 74 

PRINT USING ";E; 

CALL ER(E) 

NEXT 


; 关关关关*关关关关兴关关关关关关关关关矢关关关 

ERROR MESSAGE PRINT * 

;关关关关**关关关关关关矢******关关关关 


0000 C437 
0002 268A04 


START: LES SI,[BX] 

MOV AL,ES:[SI] 


GET PARA FROM BASIC 
AL=ERROR CODE 


MOV AL, [_02J ^ -エラーコード 

CALL 0005 H (Syntax error) 

これは BASIC からでもコールできます。 

DEF SEG = &H 1 F 0 0 

ER=0 : E %= YY \ < -ェラーコード 

CALL ER (E%) 

ただし， 2FH と 43 H の RET を IRET に変える必要があります。 

PC-9801 F の 場合は， 3A50H を 3B28H に変更し，また ディスクのエラー メッセージを表示す 
るにはセグメント FC00H, オフセット 366 H として下さい。 

BASIC でエラーメッセージをコード順に出すには次のようにします。 

エラーメッセージをコード)噴に出力 


569BE 0367 9CEF23 

0 0 CO 0 0 1111 1 112 2 
000000000000000 
0 0 CS 0 0 0 0 0 0 0 0 0 0 0 0 


0 0 0 5 0 0 
1123345 
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268A07 
E 81200 
43 

E2F7 
E 80100 
C3 


B03F 
E 82300 
E 81500 
C3 


• NEXT uithout FOR 

• Syntax error 

,RETURN without GOSUB 

• Out of DATA 

• Illegal function cal1 

• Overflow 

• Out of memory 

,Undefined 1ine number 

• Subscript out of range 

• Duplicate Definition 
.Division by Zero 

• Illegal direct 

• Type mismatch 

. Out of string space 

• String too long 

• String formula too complex 

• Car/t Continue 

.Undefined user function 

• No RESUME 

• RESUME without error 

• Unprintable error 

• Missing operand 

• し ine buffer overflow 
.? 

. ? 


0044 B00D 
0046 E 80600 
0049 B00A 
004B E 80100 
004E C3 

004F BF3D00 
0052 CDC4 
0054 C3 


出力結果 


0030 43 
0031 B500 
0033 268A0F 
0036 43 


MOV AL/?' 

004F CALL DISP 

0044 CALL CRLF 

iRlTl 

FIND: INC BX 

MOV CH,0 
MOV CL,ES:[BX] 
INC BX 

♦ 

LP ： MOV AL,ES:[BX] 

004F CALL DISP 

INC BX 

0037 LOOP LP 

0044 CALL CRLF 

[RET] 

♦ 

CRLFs MOV AL,0DH 

004F CALL DISP 

MOV AL,0AH 

004F CALL DISP 

RET 

♦ 

DISP: MOV DI,3DH 

INT 0C4H 
RET 


;? DISPLAY 
;IRET FOR BASIC 

;CX=LEN(MESSAGE) 
;MESSAGE PRINT 

5 IRET FOR BASIC 
； CR/LF PRINT 


ONE CHR PRINT 


END 


0025 E2F2 0019 LOOP SER 


7 A D E 0 3 
3 3 3 3 4 4 
0 0 0 0 0 0 
0 0 0 0 0 0 


7 9 c F 
2 2 2 2 
0 0 0 0 
0 0 0 0 


123456789 0 123456789012345 
1IX 11-111111- 2 2 2 2 2 2 
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26 

# 參 ♦ 

FOR without NEXT 

27 

# ♦ • 

Tape read error 

28 

♦ • # 

? 

29 

♦ t 參 

.UHILE without WEND 

30 

♦ tt 

WEND without WHILE 

31 

# • • 

Duplicate 1abel 

32 

• 參 ♦ 

Undefined label 

33 

籲 ♦春 

Feature not available 

34 

# # ♦ 

? 

35 

参## 

? 

36 

• # ♦ 

? 

37 

♦ 參# 

? 

38 


? 

39 

♦争 ♦ 

? 

40 

♦ • • 

? 

41 

# ♦参 

? 

42 

♦ # • 

? 

43 

• 參 • 

? 

U 

♦參參 

? 

45 

♦ tt 

? 

46 

t #脅 

? 

47 

♦ 參# 

? 

48 

• • • 

? 

49 


? 

50 

• ♦参 

FIELD o^erf1ou 

51 

# • • 

Internal error 

52 

參 ♦ t 

Bad file number 

53 

# # ♦ 

rile not found 

54 

# • # 

rile already open 

55 

♦ • • 

Input past end 

56 

• • # 

Bad file name 

57 

♦参# 

Direct statement in ril 

58 

♦ tt 

Sequential after PUT 

59 

• ♦參 

Sequential I/O only 

60 

• 奉 • 

rile not open 

61 

♦参# 

rile write protected 

62 

♦ •參 

Disk off 1 me 

63 

♦ # • 

? 

64 

参## 

Disk I/O error 

65 

• ♦參 

rile already exists 

66 

• • • 

? 

67 

• # » 

? 

68 

• ♦ • 

Disk full 

69 

• • # 

Bad allocation table 

70 

♦ • • 

Bad drive number 

71 

• • • 

Bad track/sector 

72 


Deleted record 

73 

• • t 

Rename across disks 

74 

参 ♦ • 

Illegal operation 


14-6 未使用コマンドを使用する 

N 88 - BASIC (86) では，キーワードとして中間コードが割りつけてあっても，使用されていないも 
のがあります。 • 

例えば，デイスク BASIC ではなくて， ROM - BASIC で使っているときのデイスク関係のコマンド 
や GP - IB インターフェースを使っていないときの GP - IB 制御関係のコマンドです。デイスク関係の 
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ステー トメント 

SRQ 

CMD 

IRESET 

ISET 

POLL 

RBYTE 

UBYTE 


関数 中間コード 

IEEE FF FE 

STATUS FF FF 

GP-IB 関係のコマンド 

これらのキーワードは，しっかり ROM に焼き付けられています。 GP - IB を使うまでは，上記ス 
テートメントを使用すると， 

Feature not available 

と表示されます。 

PC - 8001や PC -8801 では，これらのコマンドをユーザーが定義して使うことができましたが，実 
は， PC -9801 もできるのです。 

ここでは， CMD を例として説明しましよう。 

• フラグ飛び先のセット 

N 88 - BASIC (86) は，コマンド解析ルーチンの中で，拡張コマンド使用時のフラグをみて ， RAM 
上のアドレスを FAR CALL (セグメント間コール）をしているのです。 

次に，1行実行ルーチンの概略のフローチャートを示します。 


コマンドはよくご存知だろうし， PC -9801 の場合ディスクを使うことを前提として作られているの 
で，説明するまでもないと思いますが， GP - IB 関係は制御や測定等に使われるので，使われていな 
い方も多いのではないかと思います。 

GP - IB 関係のコマンドは，以下のように割にたくさんあります。 


ド 

I 

□ 

間 789ABCD 
中 EEEEEEE 
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( END ； 


上記フローチャートで拡張コマンドがあるかの判断は， 
セグメント.ベース 6 0 H 
オフセツトアドレス 15 9 3 H 

の内容をみて， 

0 . 拡張コマンドを使用していない0 

〇以外 . 拡張コマンドを使用している。 

となっています。 

したがって， CMD の使い方は， 


拡張コマンド処理ル — チン 
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15 9 3 H 

0 以外の値をセットする 

15 9 C , DH 

CMD 処理ルーチンのオフセット 

アドレス 

15 9 E , FH 

CMD 処理ルーチンのセグメント 

ベースアドレス 


ということになります。 

ただし，これは，ステートメントの処理ルーチンであって，関数処理ルーチンで，拡張コマンド 
のフラグ （1593 H ) をみて， 

CALL DWORD PTR [15 A 0 H ] 

をしている部分がありますので， 


15 A 0, 1 H 

RETF 命令（コード CBH ) のある 

オフセットアドレス 

15 A 2, 3 H 

RETF 命令（コード CBH ) のある 

セグメントアドレス 


としなければなりません。 15 A 0 H は， IEEE , STATUS の場合コールされます。 

參レジスタの保存 

閨係ないコマンド（この場合 CMD 以外のコマンド）がやってきたときは， 

〇キャリーフラグをクリアする （ CLC ) 0 
OAL , S I レジスタを保存する0 
として，すぐに， RETF を実行します。 

目的の CMD , 中間コード E 8 H がきたときは，目的•処理を実行しますが， 

〇 DS レジスタは保存すること0 

〇処理がおわって， RETF でリダーンするとき，キャリーフラグをセット （ STC ) するこ 
と。 

として下さい。 

• CMD ルーチンにとび込んできたときの状態 
CMD ルーチンに飛び込んできたときは，以下のようになっています。 


10 CMD CLEAR KEY 

t \ 

[6 EA , BH ] SI レジスタ 
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6 E 8， 9 H . 実行中の行の先頭オフセットアドレス 

6 EA , BH . CMD 

実際のテキストのダンプリストでは， 

27 DD 


となっています。 

E 8 H . CMD 

8 8 H . CLEAR 

A 9 H . KEY 

の中間コードです。 

• 次の、':"か文の END MARK の00のあるオフセットアドレスを〔6 EAH ， 6 EBH 〕 に 
セットして， RETF すること。 

となります。 

以上を参考にして，未使用コマンドをユーザーで定義して使って下さい。 

次に，そのサンプル例を示します。 

「第5章 キー入力」 で紹介した ファンクションキーのイニシャライズ•コマンド 

CMD CLEAR KEY 

及び，グラフィック画面で紹介しましたカラーパレットイ ニ シャライズ コマンド 

CMD CLEAR COLOR 

を組み込んでみました。次 ページにソースリスト を示します ので 参考にして下さい。 


0 0 
0 0 

0 0 
0 0 

0 0 
0 0 

0 0 
0 0 

0 0 
0 0 

0 0 
0 0 

9 0 
A 0 

1 0 
0 0 

8 0 
8 0 

10 
0 0 

18 0 
E 0 

10 
0 0 

0 0 
0 0 

A 0 
0 0 

0 0 
0 0 

B 0 
0 0 

8 8 
D E 
7 7 
2 2 


322 








CMDKEY10: 


0033 

3B07 


CMP 

0035 

7403 

003A 

JE 

0037 

43 


INC 

0038 

EBF9 

0033 

JMPS 


AL,CMD ； IF NOT CMD 

; THEN CF=0 : END. 

CMD_END 


GET 一 TOKEN 

BL,CLEAR 

ERROR.END 

GET_TOKEN 

BL,KEY 

CHECK^COLOR 


GET TOKEN IN BL 
CLEAR ? 

NO THEN ERROR. 

GET NEXT TOKEN IN BL 
KEY ? 

NO THEN CHECK COLOR 


3CE8 

F8 

7544 0049 

E 84800 0050 

80FB88 

753D 004A 

E 84000 0050 

80FBA9 

7545 005A 


83C307 

8B07 

052A00 

8BD8 

8B1F 

B 88006 


0E8H 

88H 

0A9H 

8EH 


00E8 

CMD 

0088 

CLEAR 

00A9 

KEY 

008E 

COLOR 


001C 33C0 
001E 8ED8 
0020 C51E1003 


AX, AX 
DS,AX 

BX,DWORD PTR VECT 

BX,7 

AX,[BX] 

AX ， 2AH 

BX,AX 

BX,[BX] 

AX,680H ; FNKEY FIRST DATA. 

AX,[BX] 

CMDKEY20 

gY 

CMDKEY10 


SS 

ES 

CX,0B4H 

DI,378H 

SI,BX 

MOVSB 


0015 

A1EA06 


MOV 

AX,EXEC_TXT 5 

SET POINTER TO 

0018 

A3E806 


MOV 

EXEC_TXT_COPY,AX; 

NEXT STATEMENT TOP 

001B 

IE 


PUSH 

DS ； MUST BE 

SAVED DS RESISTER 



t 

• 

參 

INITIALIZE 

FUNCTIONS KEYS 



CSEG 

ORG 0 
ANALIZE COMMAND 


SAMPLE OF WAY TO USE ^CMD y 

NEW COMMAND CREATED FLLOUING ••• 

CMD CLEAR KEY INITIALIZE FUNCTION KEYS. 
CMD CLEAR COLOR INITIALIZE COLOR PALLET, 


0 

2 

Y 

E 

K 

D 

M 

c 


H 

D s p uv uv uv p 

し u o o o o E 
-c p p M M M R 


0 3 
0 0 


4 8 3 4 
B 7 F A 
c 6 7 9 F B 3 
F 1 0 B B 8 F 

A B c D 0 3 5 
3333444 
0000000 
0 0 0 0 CD 0 0 


Rvs D V D uv uv uv 

00 D D o D o o o 
XML A M A M M M 


p c E 

M し N 

c c J 


し p E L p E 
A M N A M N 

c c J c c J 


0 2 3 
0 0 0 
0 0 0 
0 0 0 


5 8 B D 0 3 

0 QD CD 1 

¢30000 0 
0 0 0 0 0 0 


4 7 9 c E 0 
2 2 2 2 2 3 
0 0 0 0 0 0 
0 0 0 0 0 0 


u u u u 

Q Q Q Q 
E E E E 
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0047 

IF 

POP 

DS ; 

LOAD DS RESISTER 



CF1 END: 



0048 

F9 

STC 

♦ 

CF=1 



CMD 一 END: 



0049 

CB 

RETF 

• 

RETURN TO BASIC 



ERROR END: 



004A 

BF0100 

MOV 

DI,1 ; 

DISPLAY 'SYNTAX ERROR" 

004D 

CDC4 

INT 

0C4H 


004F 

CB 

RETF 





GET_TOKEN ： 



0050 

8936EA06 

MOV 

EXEC_TXT, 

SI 

0054 

BF0D00 

MOV 

DI,13 

；GET TOKEN 

0057 

CDC4 

INT 

0C4H 


0059 

C3 

RET 





CHECK COLOR: 



005A 

80FB8E 

CMP 

BL,COLOR 

;COLOR ? 

005D 

75EB 

004A JNE 

ERROR_END 

；NO THEN ERROR. 


♦ 

005F A1EA06 ’ MOV AX,EXEC_TXT ; SET POINTER TO 

0062 A3E806 MOV EXEC_JXT_COPY,AX; NEXT STATEMENT TOP 





INITIALIZE 

COLOR PALLET 




0065 

BB4406 


MOV 

BX,644H 




0068 

B 86745 


MOV 

AX,4567H 




006B 

8907 


MOV 

[BX]，AX 




006D 

B 82301 


MOV 

AX,0123H 




0070 

43 


INC 

BX 




0071 

43 


INC 

BX 




0072 

8907 


MOV 

[BX],AX 




0074 

BB4006 


MOV 

BX,640H 




0077 

B443 


MOV 

AH,43H 




0079 

CD18 


INT 

18H 




007B 

EBCB 

0048 

JMPS 

CF1 一 END 







DEFINE BASIC DATA AREA 




0060 

• 

DSEG 

60H 






f 

ORG 

6E8H 




06E8 


EXEC_TXT_COPY RU 

1 5 

POINTER 

OF 

EXEC TEXT 

06EA 


EXEC 一 T 

XT RU 

1 ； 

POINTER 

OF 

EXEC TEXT 



f 

ORG 310H 





0310 



\JECT RS 

4 ； 

INT VECTOR 

TABLE 



P 

END 
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N 8 s-BASIC (86) のモニタ （ MON ) では，ディスク BASIC 時に簡易アセンブラ•ディスアセン 
ブラがついていますが，このアセンブラでは， RETF や CALLF などのセグメント間命令がサボー 
卜されていません。 

RETF の方は，1バイトの CBH ですので， S コマンドで直接，書けばよいでしょう。 

次に示すプログラムは BASIC で書かれていますが，前出のサンプルプログラムのマシンコードを 

DATA 文で拾ったものです。この BASIC プログラムを入力して走らせれば，そのときから， 

CMD CLEAR KEY 
CMD CLEAR COLOR 

という 2 つの コマンドが 使えます。 ユーザーマシン 語領域を使っていますので，他の マシン 語プロ 
グラムといっしょに使うときは注意して下さい。 


CMD を使ったファンクションキー及びカラーパレツトのイニシャライズコマンド 

0 'SAVE'CMDKEY-BAS" 

100 ' 

110 ^ CMD CLEAR KEY 
120 ' 

130 DEF SEG=&H60 

140 POKE &H1593,0 EXPAND COMMAND FLAG OFF 
150 / 

160 CLEAR ， & H1FF0:DEF SEG=&H1FF0 
170 ' 

180 FOR 1=0 TO &H7C 

190 READ A$:P0KE I,VAL( ， &H ， +A$) 

200 NEXT 
210 x FOR CMD 
220 DEF SEG=&H 60 

230 POKE &H159C,0 : POKE &H159D,0 ：' OFFSET 

240 POKE &H159E,&HF0：POKE &H159F,&H1F： x SEGMENT 
250 POKE &H1 593,1 ： y SET EXPAND COMMAND FLAG 

260 " FOR IEEE AND STATUS 

270 POKE &H15A0,&H75:POKE &H15A1,0 : " OFFSET 

280 POKE &H15A2,&HF0:POKE &H15A3,&H1F:' SEGMENT 
290 / 

300 BEEP 1:PRINT'CREATE "CMD CLEAR KEY'" : BEEP 0 
310 7 
320 END 
330 x 

340 DATA 3C,E8,F8,75,44,E8,48,00,80,FB,88,75,3D,E8,40,00 
350 DATA 80,FB,A9,75,45,A1,EA,06,A3,E8,06,IE,33,C0,8E,D8 
360 DATA C5,1E,10,03,83 ， C3,07,8B,07,05,2A,00,8B,D8,8B ， 1F 
370 DATA B8,80,06,3B,07,74,03,43,EB ， F9,FC, 16,0 7 ， B9 ， B 4，00 
380 DATA BF,78,03,8B ， F3,F3,A4,IF,F9,CB,BF, 01,0 0,CD,C4，CB 
390 DATA 89,3 6,EA,06,BF ， 0D,00,CD,C4,C3,80,FB,8E,75,EB,A1 
400 DATA EA,06,A3,E8,06,BB,44,06,B8,67,45,89,07,B8,23,01 
410 DATA 43,43,89,07 ， BB,40,06,B4,43,CD,18,EB，CB 


参考までに，マシン.コードを BASIC の DATA 文に吸い上げる簡単なプログラムを示します。 
RUN すると，スタートアドレスとエンドアドレスをきいてくるので，16進表記で入力して下さい。 


325 



すると，画面に10000行から1〇行おきに， data 文になったマシンコードが表示されますので， 
画面以内のところで STOP して，先頭の行番号に もっていって， 121キーをおして いって 下さ ぃ。 


DELETE 


100-260 


として， DATA 文作成プログラムを消去して， DATA 文だけ SAVE すればよいでしょう。 

L N . 最初の行番号 

となっていますので，100行の10000を変えると最初の行番号が変わり，増分は，240行の10をか 
えて下さい。 

セグメントアドレスは，110行で決めています。 


DATA 文作成プ□グラム 


0 'SAVE•DATA.CRT• 

100 LN=10000 

DEF SEG=&H1F00 

DEF FNHX$(X)=RIGHT$("0 B +HEX$(X),2) 

DEF FNHXU$(X)=RIGHT$( *000 *+HEX$(X),4) 


110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 


INPUT "START ADDRESS=",S$ ： S=VAL( ， &H ， +S$) 

INPUT "END ADDRESS=",E$:E=VAL( - &H"+E$) 

IF S>E THEN END 

FOR I=S TO E STEP 16 
PRINT STR$(LN) B DATA •; 

FOR J=0 TO15 

PRINT FNHX$(PEEK(I+J));：IF J<>15 THEN PRINT 

NEXT:PRINT ELSE PRINT 

LN=LN+10 
NEXT 
END 


14 - 7 新しいコマンドを作る 

刖節で，未使用コマンドを使用する方法を述べましたが，新しいコマンドを作ることができ るの 
です。つまり，キーワードに登録されている以外のコマンドを作ることができます。キーワード以 
外の文字列は，ダブルクオテーシヨンや REM の外では，変数名として，テキストに置かれますの 
で， 


頭文字 


326 









という形になっています。 

前節のフックアドレスを利用すると， RAM 上の拡張コマンドの処理ルーチンに入ったときに，例 
ぇば INIKEY という新しいコマンドを作ったとしますと， 


I 0 5 N I 

KEY 


t 



SI 



AL 二先頭の、' I " 

が入っている。 

SI は 05 をさしている。 


という状態になっていますので，もし， AL レジスタに I が入っているとき，そのあとに〇5 NIKEY 
が連続して続いているときに， INIKEY 処理ルーチンに入り，それ以外は，キャリーフラグをクリ 
アしてすぐに RETF するようにします。 

レジスタの保存等は，前節と同じです。 

次に，新しぃコ マンド INIKEY に， ファンクションキ- イ ニシヤ ライズを加えた例を示しておき 


ます0 


0000 50 
000156 
0002 3C49 

0004 755D 
0006 AC 
0007 3C05 
0009 7558 
000B AC 
0000 3C4E 
000E 7553 
0010 AC 
0011 3C49 
0013 754E 
0015 AC 
0016 3C4B 
0018 7549 
001A AC 
001B 3C45 
001D 7544 
001F AC 
0020 3C59 
0022 753F 


0024 AC 
0025 3C 007404 
0029 3C0B72F7 


FREE COMMAND CREATED 


THE NEU COMMAND "INIKEY 


0063 

0063 

0063 

0063 

0063 

0063 

0063 


LOOP: 


002D 

0024 


PUSH 

PUSH 

CMP 

JNE 

LODSB 

CMP 

JNE 

LODSB 

CMP 

JNE 

LODSB 

CMP 

JNE 

LODSB 

CMP 

JNE 

LODSB 

CMP 

JNE 

LODSB 

CMP 

JNE 


AX ； PROTECT AX,SI 

SI 

AL/r ； if not 

; THEN END. 

COMMEND 

AL,5 ； NUMBER OF LETTERS=5 ? 

COM 一 END 

AL/N〆5 N ? 

COM 一 END 

AL/r ； I ? 

COM.END 

AL / ぐ 5 K ? 

COM.END 

AL/E / 5 E ? 

COM 一 END 

AL/Y ， ； Y ? 

COM 一 END 


LODSB 

CMP AL,0 ! JE L00P_END 
CMP AL,0BH ! JB LOOP 
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□S ; PROTECT DS 

AX, AX 

DS,AX 

BX，DWORD PTR VECT 


0020 4E 
002E 8936E806 


し 0 OP 


0032 IE 
0033 33C0 
0035 8ED8 
0037 C51E1003 


003B 83C307 
003E 8B07 
0040 052A00 
0043 8BD8 
0045 8B1F 
0047 B 88006 

004A 3B07 
004C 7403 
004E 43 
004F EBF9 


0051 

0052 

0053 

0054 

0057 

005A 

005C 


FC 

16 

07 

B9B400 

BF7803 

8BF3 

F3A4 


005E IF 

005F F9 

0060 5E 
0061 58 
0062 CB 

0063 F8 
0064 EBFA 


0060 

06E8 

0310 



ADD 

BX,7 


MOV 

AX,[BX] 


ADD 

AX,2AH 


MOV 

BX,AX 


MOV 

BX,[BX] 


MOV 

INIKEY10: 

AX,680H 

0051 

CMP 

AX,[BX] 

JE 

INIKEY20 


INC 

BX 

004A 

JMPS 

INIKEY20: 

CLD 

INIKEY10 


PUSH 

SS 


POP 

ES 


MOV 

CX,0B4H 


MOV 

DI,378H 


MOV 

SI,BX 


REP 

MOVSB 


POP 

♦ 

DS 


f 

INI 一 END: 

5 CF=1 


POP 

SI j 


POP 

RETF 

COM 一 END: 

C し C 

AX 

0060 

JMPS 

INI 一 END 


；PROTECT DS 


；PROTECT AX,SI 


define basic data area 


DSEG 

60H 

ORG 

6E8H 

一 COPY 

RU 

ORG 

310H 

VECT 

RS 

END 



1;POINTER OF EXEC TEX1 
4 ; INT VECTOR TABLE 


INITIALIZE FUNCTION KEYS 
ANIKEY 7 


SI 

EXEC_TXT_COPY,SI 


s R uv s 
u o o D 

p X M L 


c V 
E o 
-DM 
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上記マシンコードを BASIC の DATA 文で吸い上げました。次の BASIC プログラムを入力し 
RUN すれば，新しいコマンド INIKEY がふえます。 


新しいコマンド INIKEY を使ったファンクションキーイニシャライズ 


0 / SAVE*INIKEY.BAS* 

100 / 

110 x CREATE NEU COMMAND ， INIKEY ， 

120 / 

122 DEF SEG=&H 60 

124 POKE &H1 593,0 :’ EXPAND COMMAND FLAG OFF 

126 y 

130 CLEAR ,&H1FF0:DEF SEG=&H1FF0 
140 ^ 

150 FOR 1=0 TO &H65 

160 READ A$ ： P0KE I,VAL(_&H-+A$) 

170 NEXT 
180 / 

190 DEF SEG=&H60 

200 POKE &H159C,0 : POKE &H159D,0 〆 NEU COM OFFSET 

210 POKE &H159E,&HF0:POKE &H159F,&HlFs 7 NEW COM SEGMENT 

220 / 

230 POKE &H15A0,0:POKE &H15A1,0 IEEE & STATUS OFFSET 
240 POKE &H15A2,&HF0:POKE &H15A3,&H1F:' 

250 / 

260 POKE &H1 593,1 : / EXPAND COMMAND FLAG 

270 ' 

280 BEEP 1jPRINT "NOU CREATE 'INIKEY'":BEEP 0 
290 / 

300 END 

10000 DATA 50,56,3C,49,75,5D,AC,3C,05,75,58,AC,3C,4E, 75,53 
10160 DATA AC,3C,49,75,4E,AC,3C,4B,75,49,AC,3C,45,75,44,AC 
10320 DATA 3C,59,75,3F,AC,3C,00,74,04,3C,0B,72,F7,4E, 89,36 
10480 DATA E8,06 ， 1E ， 33,C0,8E,D8,C5,1E,10,03,83,C3,07,8B,07 
10640 DATA 05,2A,00,8B,D8,8B,IF,B8,80, 06,3 B, 07,74 ,03,43,EB 
10800 DATA F9,FC,16,07,B9,B4,00,BF,78,03,8B,F3,F3,A4,IF,F9 
10960 DATA 5E,58,CB,F8,EB,FA 


ただし，このようにして増やしたコマンドは， BASIC インタープリタ内では，変数名扱いを受け 
ますので， 

? INI KEY 

とした場合は，値0をもった変数となります。しかし，変数として代入はできません。即ち， 

INIKEY= 6 

で， INIKEY という変数に6を代入できません。= 6は INIKEY 処理ルーチン内での引数となりま 
す。今の例では，引数がありませんので， 

Syntax error 

になります。 


329 


14 - 8 8086はリセットがかかったら何処へ！？ 

Z -80 など8ビットのシステムでリセットをかけると，0000番地から実行されます。それで， PC 
-8801などで, 

mon [ RET ] 

* G 0 [ RET ] 

として，ソフト的にリセットかけることができます。 

では，8086ではどうなるのでしょう？ 8086はリセット後，次のように各レジスタがセット（リ 
セット）されます。 

IP . 0 0 0 0 H (命令ポインタ） 

CS . FFFFH (コードセグメント） 

DS . 0 0 0 0 H 

SS . 0 0 0 0 H 

ES . 0 0 0 0 H 

フラグ……すべてクリア 

そのため， PC -9801 をリセットすると物理アドレスの FFFF 0 H から実行を始めるわけです。そ 
こで， FFFF 0 H の内容をみてみると，次のようになっています。 

EA 00 00 80 FD 


これは，セグメント間ジャンプ命令で，セグメント FD 80 H ， オフセット000 0 H にジャンプする 
ということです（モニタの逆アセンブラでは正常にとれません) 0 物理アドレスの FD 800 H からは， 
BIOS が入っており，これを実行後， N 88 -BASIC (86) が起動されます。 

ちなみに，リセットをかけず，ソフト的に OS を起動する法があります。セグメント FD 80 H ， 才 
フセット91 EH からは， OS のブートストラップローダー（ディスクシステムの起動プログラム）が 
入っており， 

DEF SEG = & HFD 8 0 
A 二 &H 91 E 
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CALL A 


または， 

m o n [ RET ] 
h ] CFD 8 0 [ RET ] 

h ] G 9 IE [ RET ] 


とすると， N 88 -Disk BASIC (86)， CP / M -86, MS - DOS などが起動します。 

PC -9801 のリセットボタンを押すのではなく，ソフト的にリセットをかけることがあれば，以上 
の方法をご使用ください。ハードウェアリセットよりも数秒速く起動できます。 


14-9 INKEY $ でカーソル表示 

INKEY $ 関数でキーセンスを行う場合，カーソルが表示されませんので，入力位置などが分から 
なくなるときがあります。そこで， INKEY $ でもカーソルを表示させる方法を紹介します。 


カーソル表示プログラム 


1 'SA^E _ CURSOR.BAS" 
100 DEFINT X-Y : A=0 
110 DEF SEG=&H1F00 
120 FOR 1=0 TO &H1E 
130 READ D$:D=VAL("&H" 
140 POKE I,D 
150 NEXT I 

160 X=POS(0):Y=CSRLIN: i 
170 A$=INKEY$：IF A$= M " 
180 IF A$=CHR$(13) THEN 
190 PRINT A$; 

200 GOTO 160 
210 DATA C 4,77 ,04 
220 DATA 26 
230 DATA 8A,14 
240 DATA C4,37 
250 DATA 26 
260 DATA 8A，34 
270 DATA B8,A0,00 
280 DATA F6,E6 
290 DATA 30,F6 
300 DATA 00,02 
310 DATA 01,C2 
320 DATA B4,13 
330 DATA CD,18 
340 DATA B 4,11 
350 DATA CD,18 
360 DATA CF 


〕$) 


、LL A(X,Y) 
■ 160 
5 RINT 


LES SI,04[BX] 
ES: 

MOV DL.CSI] 

LES SI,[BX] 

ES: 

MOV DH,CSI]_ 
\A0\J 
MU し 
XOR 
ADD 
ADD 
MOV 
INT 
MOV 
INT 
IRET 


AX,00A0 
DH 
DH, 

DL, 

DX, 

AH, 

18 

AH,11 _ 
18 


1,DH 
，’ DL 
:, AX 
1,13 


DL=X 

DH=Y 

；AX = 160 
;AX = 160XDH 

； DL=DL+DL 

;DX=DX+AX 

1 - 160XDH 

DLX2 

CURSOR LOCATE 
CURSOR DISPLAY 
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ここでのポイントは，カーソル表示位置を指定して，そこにカーソルを表示させなくてはいけな 
いことです。幸い， ROM 内にそれらのルーチンがあるので利用してみましょう。 

まず， X， Y にカーソル位置を入れて，マシン語ルーチンを コールし ます。カーソル位置指定は 
次のとおりです。 

MOV DX，VADRS ; カーソル位置 
MOV AH , 1 3 H 
I NT 18 H 

DX に入る値は， CPU から見た VRAM 上のアドレスで， 

VADRS = 16 0氺 Y +2 ホ X 

で求められます。 

マシン語ルーチンで， X ， Y の値を上の式のとおり変換して DX に入れています。そして， 

MOV AH , 11 H 
I NT 18 H 

で カーソル 表示します。 

14-10 高速リスト 

LIST コマンドは，人間の目でおってゆけるように，タイミングをとっています。このタイミング 
は可変になっていて，セグメント60 H のオフセット1802 H ,1803 H に，そのタイミングを入れる 
ようになっています。 

1802 H , 1803 H が0000 H 以外のときは，その値を CX に入れて， 

LOOP $ 

でタイミングをとります0 000 0 H のときは，デフォールト値として600 0 H をとります。 

したがって，600 0 H より小さいときは，通常より速く，600 0 H より大きいときは，通常よりおそ 
い LIST がとれます。 

それでは，高速 LIST にしてみましょう。 


MON 

h]C60 

h ： S1802 
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1802 00-01 

h：TB 

Ok 

これで，高速リストになります。タイミングとして000 1 H としたのです0 
LIST をとってみて下さい/ただし E と F では、タイミンダの値が ROM 内にありますので、変更する 
ことはできません。 


14-11 CHR$(13);CHR$(10) と CHR$(13)+CHR$(10) との違い 

CRT 上に PRINT 出力する場合， 

10 PRINT 、' ABC " ; CHR $(13) ; CHR $(10) 

20 PR I NT 、' DEF " 

とすると， ABC と書いた行と DEF と書いた行はつながってしまいますが， 

10 PRINT 、' ABC " ; CHR $(1 3) + CHR $( l 0) 

20 PR I NT 、' DEF " 


とすると， 2 つの行は分離されます。 

この理由は，キャリッジリターン （0 DH ) とラインフィード （0 AH ) を1つ1つ出力すると ， CRT 
出カルーチンは，行の区切りを発生せず， 0 DH と 0 AH を一緒に出力すると，行の区切りを発生す 
るように，プログラムしてあるからです。 

したがって ， INT C 4 H で ROM 内ルーチンを呼び出して， CRT 出力を行う場合は， ODH ，0 AH 
を1つ1つ出力すると，行がすべてつながってしまいます。 

行がつながってほしくない場合は，文字出カバッファ（セグメント60 H のオフセット202 H ) に 
ODH ，0 AH を入れて，文字カウンタ CX に2を入れて， 0 DH ， 0 AH を同時に出力しなければなり 
ません。 

14-12 OUTPUT と AS も変数に使える 

ファイルをオープンするときは， 

OPEN ''ファイル名 " FOR OUTPUT AS #1 
というステートメントを使いますが， 
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OUTPUT と AS 


は，中間言語表にありませんから，変数名として格納されています。ということは，変数として使 
えるのでしょうか？ 

実際やってみましょう。 


0UTPUT=12 

Ok 

AS=0UTPUT*2 

Ok 

PRINT OUTPUT;AS 
12 24 

Ok 


ちゃんと使えますね / 


14-13 キーバッファクリア 

「第 5 章キー入力」にあるように， N 88 -BASIC(86) はキーバッファがあり，キーの先行入力が 
可能です。これはたいへん重宝な機能ですが，プログラム実行中に不要なキー入力を避けたい場合 
があります。そんなときには，適所適所でキーバッファをクリアすれば問題ありません。その方法 
を 3 通り紹介します。 

①100 IF INKEY$<>"' THEN 100 


②200 UHILE INKEY$<> , ■: UEND 


③300 DEF SEG=&H1F00 
310 FOR 1=0 TO 2：READ D$ 
320 D=VAL('&H B +D$) 

330 POKE I,D:NEXT I 
340 KC=0：CALL KC 
350 DATA CD,9E ： x INT 9EH 
360 DATA CF : " IRET 


①と②は BASIC のステートメントを用いたものです。③は ROM 内ルーチンのインタラブト 
コール (INT 9EH) を利用したもので BASIC からの実行例です。アセンブリ言語でのプロダラミン 
グの際に役立てて下さい。 
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FA 

06 

IE 

56 

51 

53 

50 

B 93200 
B402 


時間表示ソースリスト 


1D00 


14-14 リアルタイムで時間を表示 

PC を使用中に現在の時間がリアルタイムに CRT に表示されていればいいなと思ったことはあ 
りませんか？時計が手もとにない。また掛時計も置き時計もない。 PC はフルに稼動中で ， PRINT 
TIME$ を実行することもできない。そんなときに，次のプログラムを実行しておけば、 CRT の右上 
のすみにリアルタイムに時間が表示されます。 

これは，インターバル • タイマ割り込みをセットして、時間を読み，それをテキスト VRAM に書 
き込んでいます。ソースリストもあわせて掲げておきますので，割り込み処理の参考にして下さい。 
なお，時間の表示を止めるには，次のステートメントをダイレクトで実行します。 


DEF SEG 二 &H1D0 0 : POKE 0,&HCF 


時間表示プログラム 


1 ^save -TIME.BAS' 

100 / Real Time Time Display 
110 ' —— TM=0:CALL TM --- 
120 UIDTH 80,25 s CONSOLE 1,24 
130 DEF SEG=&H1D00 
140 FOR 1=0 TO &H5E : READ D$ 

150 D=VAL("&H - +D$) : POKE I,D 

160 NEXT I 

170 TM=0:CALL TM 

180 LOCATE 0,1:END 

190 DATA FA,06,IE, 56,51 ,53,50,B9,32,00,B4 ， 02,0E,07,BB,00 
200 DATA 00,CD,1C,B4,00,0E,07 > BB,5F,00,CD,1C > B8,00,A0,8E 
210 DATA D8,BE,8C,00,E8,1A,00,B0,3A ， 88,04,46,46,E8,11,00 
220 DATA B 0 ， 3 A, 88,04 ,46,46,E8, 08 ， 00, 58,5B,59,5E,IF,07,FB 
230 DATA CF, 26,8 A, 67,03 ,43,8A,C4,24,F0,B1 ,04,02, C8,0C,30 
240 DATA 88,04,46,46,8A,C4,24,0F,00,30,88,04,46,46,03,90 


Rea 1 Time Time Display 
Calling sequence : 

DEF SEG=&HlD00sTM=0 
CALL TM 'Display On 


CSEG 1D00H 
ORG 0 


GETP: 

INTSET: 


CLI 

PUSH ES 
PUSH DS 
PUSH SI 
PUSH CX 
PUSH BX 
PUSH AX 
MOV CX,50 
MOV AH,02H 


Save Main Regs 


\ CX く = 50 x 10 msec 
；Interrupt Set 


01234567 A 
000000000 
000080000 
000000000 
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TIME ： 

0041 

0041 

0041 


0041 268A6703 
0045 43 
0046 8AC4 
0048 24F0 
004A B104 
004C D2C8 
004E 0C30 
0050 8804 
0052 46 
0053 46 


DISP ： MOV AH,ES:03H[BX] 
INC BX 
MOV AL,AH 
AND AL,0F0H ； 

MOV CL,4 ; 

ROR AL,CL 
OR AL,30H 
MOW [SI],AL 
INC SI 
INC SI 


fime Buffer 


Top 4 bits 
Rotate 4 times 


MOV AL,AH 
AND AL,0FH 
OR AL,30H 
MOV [SI],AL 
INC SI 
INC SI 
RET 


Under 4 bits 


Return to MAIN 


DS く ： Text V-RAM 
Locate 70,0 
HOURE 


5 MINUTE 


5 SECOND 

；Restore Main Regs 


: Return 


B400 

0E 

07 

BB5F00 

CD1C 


MAIN ： 


MOV AH,00H ； Time Read 

PUSH CS 
POP ES 

MOV BX,OFFSET TBUFF 
INT 1CH 


Time Read Buffer 


； ES：BX 

;User Routine 


000C 0E 
000D 07 
000E BB0000 
0011 CD1C 


005F 

TBUFF 

RS 6 

5 Time Read Buffer 


； 

END 



0 しし 

0 0 n A / A 
A X 4 p > p » p 

0 A 1 s/ 1_ n s 

> > > Ti > Ti I > I I 

XSIDLSIID—JSIID 
ADS Acss A 匚 ss 

ししし T 
：>；>：> し： >:>cc し VVCCLPPPPPPIE 
OOOAOONNAOONNAOOOOOOTR 
MMMCMMIICMMIICPPPPPPSI 


X X X I s s 
A B c s D E 


4 F 0 4 
c 0 3 0 
A 4 c 8 6 6 3 
8 2 0 8 4 4c 

4 6 8 A c D E 

5 5 5 5 5 5 5 
0 0 0 0 0 0 0 
0 0 00 0 00 


0 

s * H 
c s X c 
E B 1 
H 

s p V T 
u o o N 
p p M I 


0 0 0 
A 0 0 
0 8 c A A 4 
0 D 813 0 


0 

0 

1 A 4 
13 0 


0 

0 

8 

0 


8EE 808668086688 B9EF7BF 
B8BEB844EB844E 555510 Fc 

CF1479BCD 024569 ABCDEF0 
1122222223333333333334 

0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 CS 0 0 0 
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 


3 5 6 7 A 

VI tH tH IX 
0 0 CS 0 0 

0 0 0 9 0 
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S? 

DS 

CX,000A 

AL,80 

BX，0378 

[BX],AL 

BX,0012 

000A 


MON mode = 
F(179) 

) 


1 / save FUNK.MON" 

100 / = Use F.KEYS in 

110 WIDTH 80,25 

120 DEF SEG=&H60 : DIM 

130 FOR 1=0 TO179 

140 F(I)=PEEK(&H378+I 

150 NEXT I 

160 DEF SEG=&H1F00 

170 FOR 1=0 TO16 

180 READ D$ : D=VAL(" 

190 POKE I，D 

200 NEXT I 

210 FOR 1=1 TO10 

220 READ D$ : KEY I, 

230 NEXT I 

240 MON 

250 DEF SE6=&H 60 
260 FOR 1=0 TO179 
270 POKE &H378+I,F(I) 
280 NEXT I : UIDTH 80 
290 END 

300 ' F.KEY ON ― 
310 DATA 16 x 

320 DATA IF ' 

330 DATA B9,0A,00 ' 

340 DATA B0,80 ' 

350 DATA BB, 78,03 x 

360 DATA 88,07 ' 

370 DATA 83,03,12 ' 

380 DATA E2,F9 . 

390 ' — F.KEY DATA -- 

400 DATA "MOV ■ , _C 
410 DATA "PUSH _,■ 
420 DATA •I R E T ■,• 
430 DATA "I N T V [ 
440 DATA ■[ S I ] ■,■[ 


14-15 モニタモードでファンクションキーを使用する 

モニタモードに入ると，ファンクションキーが使えなくなります。これは， MON のルーチンが， 
ファンクションキーのフラグを 20H にしてキー割り込み ON の状態にしているためです。このフラ 
ダをモニタに入った後， 80H に変更すれば，通常のファンクションキーとして使えるようになりま 

す。ただし，キーの内容が 1 文字置きにしか表示されませんが . 。 

次のプログラムを実行すると，モニタモードに入ります。そこで， GO, 11 [RET] とすれば，以 
後ファンクションキーが使えるようになります。例として，アセンブラーで使用するニーモニック 
を入れています。なお， CTRL-B で BASIC に戻ると，自動的にキーの内容がもとのものに書き換 
わります。 

モニタモードでファンクションキーを使用 


$ 

D 


D$ 


H P 
SPVWUVDO 
UOOOOODO 
PPMMMMAL 


コ 

し p T n 
し O E X 

D 

A p R B 
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第 15 章ユーティリティ 

15-1テキスト サーチ 
15-2 U プレイス 
15-3 バ U アブル U スト 
15-4 バーテイカル•ファイルズ 



第 15 章ユーテイリティ 


ここでは， BASIC プログラムのデバッグのためとディスク関連のユーティリティプログラムを紹 
介します。 

巻末にある「インタープリタ内ルーチンの利用 (INT C4H)J のサンプルプログラムとしても， 
参考になると思います。 


15-1テキストサーチ 

コマンド 16 (10 HT テキスト内部表現 —— > ソースイメージ変換 " ）を使えば， RAM 上にある内部 
表現の BASIC テキスト内のテキストサーチが行えます。 

内部表現をソースイメージに変換し，見つけたい文字列と ASCII コードで比較すればよいので 
す。 

このプログラムは USR 文で呼び出します。例えば， IF という文字列を見つけたいときは， 

A = USR ( VN I F") 

とします。 A$= 、 'IF" として， 

A = USR (A$). 

としてもよいです。捜したい文字列を含む行がリストアップされます。そのままカーソルをもって 
いって修正もできます。 USR 文を使うとき，ユーザー処理ルーチンで BASIC に戻る時， 

XOR AX, AX 
I RET 

とすれば，左辺の変数は引数の型と一致していなくても ， Type mismatch エラーは起こりません。 

文字の出力は，コマンド 37(25 H) の、 ' カレントデバイスへの出力 " を用いていますので，セグメ 
ント 60H ， オフセット 1840 H を 3 にするとプリンタ， 4 にすると CRT に出力されます。通常 CRT 
になっています 0 このルーチンは， LIST コマンドも用いていますので， LLIST をしたすぐあとで 
は，プリンタに出力されます。 
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テキストサーチ 


0 ^SAVE"FIND.BAS B 

100 z 

110 / CALLING SEQUENCE IS ： 

120 / 

130 7 A=USR(" STRINGS TO BE FOUND ') 

140 / 

150 x CTRL-S : ESCAPE FIND ROUTINE,RETURN UITH OTHER KEY. 

160 y STOP : STOP THE FIND ROUTINE. 

170 / 

180 CLEAR ,&H1F00:DEF SEG=&H1F00:DEF USR=0 

190 FOR 1=0 TO &H1AE 

200 READ A$:POKE I,VAL(■&H_+A$) 

210 NEXT 
220 END 

10000 DATA 3C,03,74,03,E9,C5,00,36,A1,A4,06,36,A3,DE, 06 ， 16 :’0000H 
10010 DATA 1F,C5,1F,8A,0F,43 > 8A,07,43,8B,37,0A,C0,75,04,8E ： '0010H 
10020 DATA DA,EB, 02,16 ,IF,E8,5C, 00 ， 16 ,07,BF,03,02,E8,78,00:'0020H 
10030 DATA 73,03,E8,0D,00 ， E8,30,00,72 ， 05,E8,6B,01,EB,E6,33:’0030H 
10040 DATA C0,CF,51,56,1E,16,1F,BE,03,02,AC,0A,C0,74,05,E8:'0040H 
10050 DATA 85,00,EB,F6,B8,0D,0A,36,A3,02,02,B9,02 ， 00,BF,25r0050H 
10060 DATA 00,E8,39,01,1F,5E,59,C3,1E,16,1F > 36,8B,1E,DE,06 ： / 0060H 
10070 DATA 8B,07,03,D8,83,3F,00,74,08,36,89,1E,DE,06,F8,EB:’0070H 
10080 DATA 01,F9,1F,C3,56,E8,10,00,BB,03,02,36,8B,36,DE,06:'0080H 
10090 DATA BF,10,00 ， E 8,07 ,01,5E,C3, 51, ： 16,0 7,BF,03,02,33 ， C0:’0090H 
10100 DATA B9,80,00,FC,F3,AB,59,C3,56,51,57 ， 56,51,A6,75,06:’ 00A0H 
10110 DATA FE,C9,75,F9,EB,0F,59,5E,5F,47,26,8A,05,0A,C0,75:'00B0H 
10120 DATA E9,59,5E,F8,C3,59,5E,5F,59,5E,F9,C3,BF,03,00,E8:'00C0H 
10130 DATA CB,00,CF,00,00,00,00,3C,1B,75,07,2E,C6,06,D3,00"00D0H 
10140 DATA 01,C3,2E,80,3E,D3,00,01,75,23,B4,00,3C,4B,74 ， 49 〆 00E0H 
10150 DATA 2E ,88,26, D4,00,2E, 88,26, D3,00,36,80,3E, 40 ， 18 ,04:'00F0H 
10160 DATA 74,0A,B0 ， IB ， E8,22,00,B0,48,E8,ID ， 00,C3,2E,80,3E:’ 0100H 
10170 DATA D4,00,01 ， 75,14,2E,80,3E,D5,00,00,75,3C,2C,20,2E 〆 0110H 
10180 DATA A2 ， D6,00,2E,FE,06,D5,00,C3,51,B9,01,00,36,A2,02:’ 0120H 
10190 DATA 02,BF,25,00,E8,66,00 > 59 > C3 > FE,C4,2E,88,26,D4,00 ： / 0130H 
10200 DATA 36,80,3E,40,18,04,74,0A,B0 * IB,E8,DC,FF,B0,4B,E8: ， 0140H 
10210 DATA D7,FF,2E,C6,06,D3,00,00,C3,8A,E0,2E,A0,D6,00,E8:’0150H 
10220 DATA 07,00,2E,C6,06,D5,00,00,C3,51,lE,06,16,lF,36,80r0160H 
10230 DATA 3E,40,18,04,75,16,36,A3,00,00,36,A3,02,00,36,8E:1170H 
10240 DATA 06,12,14,B9,04,00,CD, 89,07 ,IF,59,C3,04,20,36,A3〆0180H 
10250 DATA 02,02,BF,25,00,B9,02,00,E8,02,00,EB,EB,IE,56,51:'0190H 
10260 DATA 16,IF,CD,C4,59,5E,IF,C3,BF,4B,00 ， E8,EF,FF,C3 : '01A0H 


次にマシン語部分のソースリストを掲げます。 


THIS COMMAND FIND STRINGS 


CALLING SEQUENCE 



， 

參 

齊 

A=USR(" 

STRINGS 

TO BE FOUND ") 


5 

SSEG 




0000 

PRNTBUF 

ORG 

RS 

0000H 

512 

5 PRINT 

BUFFER 

0203 

l 

TXTBUF 

ORG 

RS 

203H 

256 

；ASCII 

TEXT BUFFER 
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0202 


ORG 

OUTBUF RS 


202H 

1 


； OUTPUT 1 CHR BUFFER 


PUSH 

POP 

CALL 


0013 8A0F 
0015 43 
0016 8A07 
0018 43 
0019 8B37 
001B 0AC0 
001D 7504 
001F 8EDA 
0021 EB02 

002316 
0024 IF 

0025 E85C00 


0023 

0025 

FIND10: 


FIND20: 

0084 


CL,[BX] 

BX 

SI,[BX] 

AL,AL 

FIND10 

DS,DX 

FIND20 

SS 

DS 


GET LENGTH OF STRING 
GET RELOCATION CODE 
GET STRING OFFSET 


CONV.TEXT : CONVERT TEXT TO ASCII 


16 

• 

PUSH 

SS 

• 

， 

SET TEXT SEGMENT 

IF 

POP 

DS 



C51F 

し DS 

BX,[BX] 

t 

STRING DESCREPTER POINTER 


002816 


PUSH 

0029 07 


POP 

002A BF0302 


MOV 

002D E 87800 

00A8 

CALL 

0030 7303 

0035 

JNB 

0032 E 80000 

0042 

CALL 


FIND40 ： 


0035 E 83000 

0068 

CALL 

0038 7205 

003F 

JB 

003A E86B01 

01A8 

CALL 

0030 EBE6 

0025 

JMPS 


FIND 一 END: 


SS 

ES 

DI,OFFSET TXTBUF 

COMPARE ; COMPARE THE STRINGS 

FIND40 

HIT 

SET.TXTPNT 

FIND.END 

CHECK 一 STOP 
FIND20 
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ORG 

6A4H 



06A4 


TEXT.PNT RS 

2 

♦ 

TEXT TOP ADDRESS 



9 

ORG 

6DEH 

♦ 

COMPARE ASCII TEXT 

06DE 


TXTPNT 

RS 

2 

♦ 

POINTER 



f 

ORG 

1412H 



1412 


VRAM 

RS 

2 

• 

， 

TEXT VRAM SEGMENT 



\ 

ORG 

1840H 

• 

OUTPUT DEVICE FLAG 

1840 


OUTFLAG 

RS 

1 

• 

4 CRT 3 LPT 



> 

CSEG 







ORG 

0 



0007 


； 

BEEP 

EQU 

7 


0004 



CRT 

EQU 

4 

；CRT DEVICE NUMBER 



FIND ： 





0000 3C03 



CMP 

AL,3 

♦ 

STRING ? 

0002 7403 

0007 


JE 

FIND00 

• 

NO THEN ERROR 

0004 E9C500 

00CC 


JMP 

TYPE_MISMATCH_ERROR 



FIND00: 



參 

9 

ELSE 

0007 36A1A406 



m\j 

AX,WORD 

PTR TEXT PNT 

000B 36A3DE06 



MOV 

UORD PTR 

TXTPNT,AX 


s 

V c uv c V EVP 
ONONORNOM 
MIMIMOJMJ 


F 0 1 

4X 

0 0 0 
0 0 0 



LODSB 

OR 

JE 

CALL 

JMPS 

MOV 

MOV 

MOV 

MOV 

CALL 


B80D0A 
36A 30202 
B 90200 
BF2500 
E 83901 


HIT10: 


0054 

00D7 

004A 


HIT 一 END: 


019D 


004A AC 
004B 0AC0 
004D 7405 
004F E 88500 
0052 EBF6 


16 

IF 

BE0302 


CONVERT TEXT TO ASCII STRINGS 

INPUT : TXTPNT [TEXT POINTER： 
OUTPUT : BUFFER C0060H:0000HU 


CON^TEXT ： 


56 


PUSH 

E 81000 

0098 

CALL 

BB0302 


MOV 

368B36DE06 


MOV 

BF1000 


MOV 

E 80701 

019D 

CALL 

5E 


POP 

C3 


RET 


SI ； SAVE OFFSET STRING 

CLEAR_BUFFER 

BX,OFFSET TXTBUF ； ASCII TEXT BUF 
SI,WORD PTR TXTPNT ； TEXT POINTER 


DI ,16 

ROM 

SI 


CONVERT TEXT TO ASCII 
LOAD OFFSET STRING 


006916 
006A IF 

006B 368B1EDE06 
0070 8B07 
0072 03D8 
0074 833F00 
0077 7408 
0079 36891EDE06 
007E F8 
007F EB01 

0081 F9 


0082 IF 
0083 C3 



PUSH 

SS 



POP 

DS 



MOV 

BX,UORD PTR TXTPNT 



MOV 

AX,[BX] ; GET LINK 

POINTER 


ADD 

BX,AX 



CMP 

UORD PTR [BX],0 ； 

NEXT L 

0081 

JE 

LINK_END 



MOV 

WORD PTR TXTPNT,BX 



Cl-C 

；CF=0 


0082 

JMPS 

LINK END10 



LINK_END ： 

STC 

LINK END10 ： 


CF=1 


SS 

DS 

SI,OFFSET TXTBUF 


AL,AL 
HIT 一 END 

OUTCHAR ； OUTPUT CHARACTER 
HIT10 

AX,0A0DH 

WORD PTR OUTBUF,AX 

CX,2 

DI,37 

ROM 


0064 

IF 

♦ 

f 

POP 

DS 

0065 

5E 


POP 

SI 

0066 

59 


POP 

CX 

0067 

C3 


RET 




SET. 

TXTPNT： 


0068 

IE 


PUSH 

DS 


003F 

0041 

33C0 

CF 

HIT： 

XOR 

IRET 

AX, AX 

0042 

51 


PUSH 

CX 

0043 

56 


PUSH 

SI 

0044 

IE 


PUSH 

DS 


H 

s p V 
u o o 

PPM 


4 7 B E 1 

5 5 5 5 6 
0 0 0 0 0 
0 0 0 0 0 


5 6 7 
4 4 4 
0 0 0 
0 0 0 


458B0367 
88889999 
0 0 0 0 0 0 0 0 
00000000 


s 


p T 
o E 
p R 
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NULL CLEAR OF BUFFER 


00C159 
00C2 5E 
00C3 F8 
00C4 C3 

COMP30: 

00C5 59 
00C6 5E 
00C7 5F 


CX 

SI 

5 CF=0 UNMATCH 


CX 

SI 

DI 


SS 

ES 

DI,OFFSET TXTBUF 

AX, AX 

CX,128 

STOSU 


COMPARE STRINGS UITH ASCII TEXT 

INPUT : CL : LENGTH OF STRING] 

SOURCE : STRINGS IN DS:SI 

DEST* : ASCII TEXT IN ES:DI 

OUTPUT : CF=1 THEN HIT !!! 

CF=0 THEN UNMATCH. 





COMPARE ： 


00A8 

56 



PUSH 

SI 

00A9 

51 



PUSH 

CX 




COMP05 ： 



00AA 

57 



PUSH 

DI 

00AB 

56 



PUSH 

SI 

00AC 

51 



PUSH 

CX 




COMP10J 



00AD 

A6 



CMPSB 


00AE 

7506 

00B6 


JNE 

COMP20 ; DIFFERENT 

00B0 

FEC9 



DEC 

C し 

00B2 

75F9 

00AD 


JNE 

COMP10 

00B4 

EB0F 

00C5 


JMPS 

COMP30 ; MATCH 




COMP20 S 



00B6 

59 



POP 

CX 

00B7 

5E 



POP 

SI * 

00B8 

5F 



POP 

DI 

00B9 

47 



INC 

DI 

00BA 

268A05 



MOV 

AL,ES:[DI] ; END OF LINE ? 

00BD 

0AC0 



OR 

AL,AL 

00BF 

75E9 

00AA 


JNE 

COMP05 


0099 16 
009A 07 
009B BF0302 
009E 33C0 
00A0 B 98000 
00A3 FC 
00A4 F3AB 

00A6 59 
00A7 C3 


00C8 

59 

POP 

CX 

00C9 

5E 

POP 

SI 

00CA 

F9 

STC 

5 CF=1 MATCH 

00CB 

C3 

RET 



0098 51 


C し EAR_BUFFER: 

PUSH 


CX 


p p c T p p p 
o o し E o o o 
p p c R p p p 


H 

s p uv R MV D p 
u o o o o し E 
p p M X M c R 


X 

c 


p T 
o E 
p R 
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ERROR DISPLAY 





00D3 00 
00D4 00 
00D5 00 
00D6 00 


FIB DB 
KNJ.FLG DB 
OUTCHR 一 NUM DB 
QUTCHR.BUF DB 


OUTCHAR 

0129 51 
012A B 90100 
012D 36A 20202 
0131 BF2500 

0134 E 86600 019D 

0137 59 
0138 C3 


;ESC FLAG 
: KI KO FLAG 


;NORMAL OUTPUT CHR 

cx 

CX,1 ； ONE CHARACTER 

OUTBUF,AL ； SET BUFFER CHR. 

DI,37 ； OUTPUT CURRENT DEVICE- 

ROM 

CX 


0139 FEC4 
013B 2E8826D400 
0140 36803 E 401804 
0146 740A 0152 

0148 B01B 

014A E8DCFF 0129 

014D B04B 

014F E8D7FF 0129 


OUTCHAR—40: 

INC AH 

MOV KNJ^FLG,AH 
CMP OUTFLAG,CRT 
JE OUTCHAR.50 
MOV AL,1BH 
CALL OUTCHAR_30 
MOV A し， 4BH 
CALL OUTCHAR 30 


KI ON 

OUTPUT DEVICE IS CRT ? 
YES THEN END. 


00E2 

00E8 

00EA 

00EC 

00EE 

00F0 

00F5 

00FA 

0100 

0102 

0104 

0107 

0109 

010C 

010D 

0113 

0115 

011B 

011D 

011F 

0123 

0128 




OUTCHAR ； 


3C1B 


CMP AL,1BH 

ESC ? 

7507 

&.1E2 

JNE OUTCHAR.10 

YES 

2EC606D 30001 


MOV F1B，1 

ESCAPE FLAG ON 

C3 


RET 

END 



OUTCHAR 10 ： 

ELSE 

2E803ED 30001 


CMP F1B,1 

ESC ON ? 

7523 

010D 

JNE OUTCHAR_20 


B400 


MOV AH,0 


3C4B 


CMP AL,4BH 

KI ? 

7449 

0139 

JE OUTCHAR_40 

YES THEN KNJ.FLG 

2E8826D400 


MOV KNJ_FLG,AH 

ELSE KO 

2E 88260300 


MOV FIB,AH 

CLEAR ESC FLAG 

36803 E 401804 


CMP OUTFLAG’CRT 

IF NOT CRT THEN 

740A 

010C 

JE OUTCHAR 一 15 

OUTPUT KO CODE 

B01B 


MOV AL,1BH 


E 82200 

0129 

CALL OUTCHAR.30 


B048 


MOV AL,48H 


E81D00 

0129 

CALL OUTCHAR_30 




0UTCHAR.15 ： 


C3 


RET 

;END. 



OUTCHAR 一 20: 


2E803ED 40001 


CMP KNJ 一 FLG,1 

；KI ? 

7514 

0129 

JNE OUTCHAR—30 


2E803ED 50000 


CMP OUTCHR NUM,0 

；FIRST CHAR ? 

753C 

0159 

JNE OUTCHAR 60 

;NO THEN OUTPUT 

2C20 


SUB AL,20H 



2 BYTES 


2EA2D600 
2EFE 060500 
C3 


MOV 

INC 

RET 


OUTCHR_BUF,AL；ELSE SAVE FIRST CHAR 
OUTCHR.NUM ； COUNTER+1 


00CC BF0300 
00CF E8CB00 
00D2 CF 


TYPE.MISMATCH.ERROR ： 
MOV DI,3 

019D CALL ROM 

IRET 


OUTPUT CHARACTER 
INPUT : AL 


H H H H 
0 0 0 0 
0 0 0 0 


H し 
••SVVVLPT 
0UOOOAOE 
3PMMMCPR 
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0152 2EC606D 30000 
0158 C3 

0159 8AE0 

015B 2EA0D600 

015F E 80700 0169 

0162 2EC606D 50000 

0168 C3 


OUTCHAR_50i 

MOV F1B,0 ; 

RET 

OUTCHAR.60 ： 

MOV AH,AL 
MOV AL,OUTCHR_BUF 
CALL OUTCHAR_Il 
MOV OUTCHR_NUM,0 
RET 


CLEAR ESC FLAG 


；CLEAR COUNTER 


OUTCHAR PART II 


OUTCHAR.II: 


0169 

51 


PUSH CX 


016A 

IE 


PUSH DS 


016B 

06 


PUSH ES 


016C 

16 


PUSH SS 


016D 

IF 


POP DS 


016E 

36803 E 401804 


CMP OUTFLAG,CRT 

0174 

7516 

018C 

JNE OUTCHAR. 

II 一 10 

0176 

36A 30000 


MOV UORD PTR 

PRNTBUF,AX 

017A 

36A 30200 


MOV UORD PTR 

PRNTBUF+2,AX 

017E 

368E 061214 


MOV ES,UORD 

PTR VRAM 

0183 

B 90400 


MOV CX,4 


0186 

CD89 


INT 89H 





OUTCHAR II 05 ： 


0188 

07 


POP ES 


0189 

IF 


POP DS 


018A 

59 


POP CX 


018B 

C3 


RET 





OUTCHAR.II 10: 


018C 

0420 


ADD AL,20H 


018E 

36A 30202 


MOV UORD PTR 

OUTBUF,AX 

0192 

BF2500 


MOV DI,37 


0195 

B 90200 


MOV CX,2 


0198 

E 80200 

019D 

CALL ROM 


019B 

EBEB 

0188 

JMPS OUTCHAR 

—II_05 


ROM CALL 


ROM: 


019D IE 
019E 56 
019F 51 

01A0 16 
01A1 IF 
01A2 CDC4 

01A4 59 
01A5 5E 
01A6 IF 
01A7 C3 


01A8 BF4B00 

01AB E8EFFF 019D 

01AE C3 
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PUSH 

DS 

PUSH 

SI 

PUSH 

CX 

PUSH 

SS 

POP 

DS 

INT 

0C4H 

POP 

CX 

POP 

SI 

POP 

DS 

RET 



；CHECK STOP KEY 

； IF STOP KEY ON 

CHECK^STOP: 

MOV DI,75 

CALL ROM 

RET 


；SAVE RESISTERS 

5 CALL IN ROM ROUTINE• 


THEN CF=1 
ELSE CF=0 




END 


15-2 リプレイス（文字列の置き換え） 

PRINT を LPRINT に変えたり，サブルーチンで同じ変数名を使ってしまった場合など，変数名を 
変えたりなどよく出くわす事態です。こんなときこのコマンドが役立ちます。 

リブレイスまたはチヱンジ コマン ドというのは，テキスト内の文字列 1 を文字列 2 で置きかえる 
コマンドのこ とです。 

使い方は， 

CMD 、 ' 文字列 1 〃，、 ' 文字列 2" 

とすると， RAM 上の BASIC テキスト内の文字列 1 を文字列 2 でおきかえます。もし， 128 バイト 
を超える場合は， 


String too long 


と表示して停止し，ダイレクトモードに戻ります。文字列は必らず，ダブルクォテーシヨン （"） 
で囲んで下さい。文字列 2 をヌル • ストリング（、 '" ) にすると，文字列 1 を削除します 0 

CMD '' 文字列 1 〃 

とすると，文字列 1 のサーチとなり，テキストは書き換えません。テキストサーチと同じになりま 
す。まず，これで確認したあと，リブレイスするとよいでしょう。 

さて，プログラムですが，テキストサーチと同様にして文字列 1 を見つけたあと，文字列 1 を削 
除 （ DEL) し，そこへ文字列 2 を挿入 （ INS) し，コマンド 77 (4DH) 、 '1 行トランスレート " で 
RAM 上の BASIC テキストに出力する （ TRANS) という方法をとっています。 

このコマンド 77 (4 DH) を使うと，他に， DATA 文の自動作成等もマシン語で書けます。 

明らさまに，ストップキーチエックは行っていませんが，コマンド 76(4CH) のキーセンスさえ 
すれば ，| CTRL | -S や | STOP | キー処理をしてくれます。 

詳しくはソースリストの方を見て下さい。内部ルーチンの利用等，参考になると思います。 
ディスクコードは，セグメント 100 0 H の RAM 上にありますが， ROM 内ルーチンを使っているの 
です。皆さんも， ROM 内ルーチンを有効に使って下さい。 
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リプレイスプログラム 


0 ， S ラ VE M REPLACE" 

100 关关关关关关关关关关关关关关关关关关关关 * 关关关关关关关关关关关关 ** 关关*关关关关关关关关 
110 ^ 关 

120 ’* REPLACE STRINGS TO ANOTHER ONE . 关 

130 ^ * 

140 、 USAGE IS FOLLOWING 关 

150 、 * 

160 ^ CMD "STRINGl","STRING2" * 

170 ^ * 

180 ^ REPLACE STRING1-> STRING2 , * 

190 、 * 

200 、 Copyright All Reserved by SYSTEM-SOFT(C) * 

210 * 

220 / 关关关关关关关关矢 * 关关关关关关关关 * 关关 * 关关关关关关关关关关 * 关关关**关关关关关关关关 

230 PRINT Now make CMD / function, just wait •••" 

240 DEF SEG=&H 60 

250 POKE &H1 593,0 : x CLEAR EXPANDED COMMAND FLAG, 

260 POKE &H159C,0:POKE &H159D,0 : 7 SET CMD REPLACE ADDRESS 

270 POKE &H159E,0:POKE &H159F,&H1F 

280 POKE &H15A0,&HF:POKE &H15A1,4 " SET IEEE RETF 

290 POKE &H15A2,0:POKE &H15A3,&H1F 

300 CLEAR 300,&H1F00:DEF SEG=&H1F00 

310 FOR 1=0 TO &H40F 

320 READ A$:P0KE I,VAL("&H M +A$) 

330 NEXT 

340 DEF SEG=&H60 

350 POKE &H1 593,1 :'SET EXPANDED FLAG* 

360 A$=CHR$(&H22) 

370 PR INT "Now you use ； 

380 PRINT H 7 CMD H A$ M STRING1 n A$ \ M A$ H STRING2 H A$ - y command, - 
390 BEEP 1:A=LOG(10):BEEP 0 
400 END 

10000 DATA 3C,E8,75 ， 05,E9,08,01,00,00,F8,CB,00,00,00,00,00:'0000H 
10010 DATA 00 ， 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00: ， 0010H 
10020 DATA 00,00,00,00,00,00,00,00 > 00 > 00,00,00,00 > 00 > 00,00 ： / 0020H 
10030 DATA 00,00,00 ,00,00,00 ， 00, 00,00 ,00,00, 00,00 ,00 ， 00, 00:'0030H 
10040 DATA 00,00,00 ， 00,00,00,00,00,00,00 ， 00,00,00,00,00,00 :' 0040H 
10050 DATA 00 ， 00,00,00,00,00 ， 00,00,00,00,00 ， 00 ， 00,00,00,00 : ^ 0050H 
10060 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 "0060H 
10070 DATA 00,00,00,00,00,00,00 ,00,00 ,00, 00 ， 00 ,00,00,00,00:'0070H 
10080 DATA 00,00,00,00,00,00,00,00,00,00 ,00,00, 00,00,00,00 •• /0080H 
10090 DATA 00,00,00,00,00 ,00,00 ， 00 ， 00 ,00 ,00,00 ,00,00, 00，00 : ， 0090H 
10100 DATA 00 ,00,00, 00,00,00,00,00,00,00,00,00 ， 00 ,00,00, 00: '00A0H 
10110 DATA 00 ,00 ， 00,00 ， 00 ， 00,00 *00 ,00 ， 00,00,00, 00,00,00,00:/00B0H 
10120 DATA 00,00,00 ， 00,00,00,00,00 ,00,00, 00 ,00,00, 00,00,00:/00C0H 
10130 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00:"00D0H 
10140 DATA 00,00 ， 00 ， 00 ， 00,00 ， 00,00,00,00,00,00,00 ， 00,00,00 :〆 00E0H 
10150 DATA 00 ， 00,00,00,00,00,00 ， 00,00,00,00,00,00,00,00,00 : "00F0H 
10160 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2E •• ， 0100H 
10170 DATA C6 ， 06,0B,00 ， 00,2E,C6,06,8C,00,00,46,E8,55,00,3C:'0110H 
10180 DATA 22,75,69,BF,0C,00,0E,07,33,C 9,4 6,AC, 30,00, 74,67"0120H 
10190 DATA 3C, 22,74 ,0F,FE,Cl,80,F 9,81,74,48, 2E,88,0E,0B,00:/0130H 
10200 DATA AA, EB,E8 ， E8,2E ,00,3(：, 2C, 75,49 ,46, E8,26,00,3C, 00〆 0140H 
10210 DATA 74,45,3C,22,75,36,33,C9,BF,8D,00,46,AC,3C,00,74:'0150H 
10220 DATA 36,3C,22,74,32,FE,Cl,80,F9,81,74,17,2E,88,0E,8C: ， 0160H 
10230 DATA 00,AA,EB,E8 ， AC,3C,00,74 ， 08,3C•0B,72,F7,3C,20,74:/0170H 
10240 DATA F3,4E,C3,B0,0F,BF ， 00,00,E8 ， D2,01,C3,BF,02,00,E8: ， 0180 H 
10250 DATA CB,01,C3,B0,01,EB,02,32,C0,2E,A2,0E,01,E8,D4,FF: / 0190H 
10260 DATA 36,A1,A4,06,2E > A3,07,00,BE,0C,00,2E,8A,0E,0B,00: / 01A0H 
10270 DATA 0E,IF,E8, 92 ， 00 ,2E,C 6,06 ， 0 D,01,00,16,07,BF, 03,02• ノ 01B0H 
10280 DATA E8,42,02,E8,A5,00,73,16,2E,C6,06,0D,01,01,2E,F6:'01C0H 
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10290 DATA 06 ， 0E,01,01,75,08,E8,96,01,E8,B5,01,EB,E5,2E,80 : '01D0H 
10300 DATA 3E,0D,01,01,75,0E,2E,F6,06,0E,01,01,75,03,E8,ED ： "01E0H 
10310 DATA 01,E8,11,00,E8,34,00 ， 72,05,E8,6C,01,EB,B4,BF,1E::01F0H 
10320 DATA 00,E8,59,01,CB,51 ,56, IE, 16,1 F,BE,03,02,AC ， 0A,C0: 〔 0200H 
10330 DATA 74,05 ， E8,85 ， 00,EB,F6,B8,0D,0A,36,A3,02,02,B9,02: :0210 H 
10340 DATA 00,BF,25,00,E8,36,01,IF,5E,59,C3,IE,16,IF,2E,8B ； :0220H 
10350 DATA IE,07,00,8B,07,03,D8,83,3F, 00,74 ,08,2E, 89,1 E,07:’0230H 
10360 DATA 00,F8,EB,01,F9,1F,C3,56,E8,10,00,BB,03,02,2E ， 8B::0240H 
10370 DATA 36 ,07,00, BF,10,00,E8,04,01,5E,C 3,51 ,16,07,BF ， 03:: 0250H 
10380 DATA 02,33,C0,B9,80 ， 00 ， FC,F3,AB,59,C3,56,51,57,56 ， 51 〆 0260H 
10390 DATA A6,75,06,FE,C9,75,F9,EB,0F,59,5E,5F,47,26 ， 8A,05:'0270H 
10400 DATA 0A,C0,75,E9,59,5E,F8,C3,59,5E,5F,59,5E,F9,C3,BF 〆 0280H 
10410 DATA 03,00,E8,C8,00,CF,00,00,00,00,3C,1B,75,07,2E,C6:1290H 
10420 DATA 06,96,02,01,C3,2E,80,3E,96,02,01,75,23,32,E4,3C ： "02A0H 
10430 DATA 4B,74,49,2E,88,26,97,02,2E,88,26,96,02,36,80,3E:"02B0H 
10440 DATA 40 > 18,04,74,0A,B0 > 1B,E8,22,00,B0,48,E8,1D,00,C3:"02C0H 
10450 DATA 2E,80,3E,97,02,01,75,14,2E,80,3E,98,02,00,75,3C'02D0H 
10460 DATA 2C, 20 ， 2 E ， A2, 99 ， 02, 2E,FE,06,98,02,C3,51,B9,01,00:’02E0H 
10470 DATA 36,A2,02,02,BF,25,00,E8,63,00,59,C3,FE,C4,2E,88: / 02F0H 
10480 DATA 26,97 ,02,36,80,3E,40,18,04,74,0A,B0,1B ， E8 ， DC ， FF : "0300H 
10490 DATA B0,4B ， E8,D7,FF,2E,C6,06,96,02,00,C3,8A,E0,2E,A0: / 0310H 
10500 DATA 99,0 2,E8,07,00,2E,C6,06,98,02,00,C3,IE, 06,16, IF:’0320H 
10510 DATA 51,36 ,80,3E, 40,18 ,04,75,16,36,A3,00,00,36,A3,02:'0330H 
10520 DATA 00,36,8E, 06,12 ， 1 4,B9,04,00,CD, 89,59,07, IF,C3,50:"0340H 
10530 DATA 04,20,E8,97,FF,58,8A,C4,E8,91,FF,EB,EE•!£,56,51:'0350H 
10540 DATA 16,1F,CD,C4,59,5E,1F,C3,BF,4B,00,E8,EF,FF,C3,33:"0360H 
10550 DATA C9,2E,8A,0E,0B,00,83,F9,00,75,01,C3,IE,56,06,IF:'0370H 
10560 DATA 8B,D7,8B,F7,03,FI,AC,AA,3C,00,75,FA,5E,IF,8B,FA: 〆 0380H 
10570 DATA C3,33 ， C9,2E,8A,0E,8C,00,83,F9•00,75,06,2E,8A,0E: 〗 0390H 
10580 DATA 0B,00,C3,IE,56,06,IF,8B,F7,8B,D9,33,C9,8B,D7,AC : 03A0H 
10590 DATA 41,3C,00,75,FA,4E,8B,FE,03,FB,81,FF,01 > 03 > 72,03 ： '03B0H 
10600 DATA E9,C0,FD,FD,F3,A4,FC,8B,CB, 06 ， 0 E ， 1F, 16 ， 07,8 B ， FA: 03C0H 
10610 DATA BE,8D,00,F3,A4,07,5E,1F,2E,8A,0E,0B,00 ， C3,1E,51:/03D0H 
10620 DATA 56 ， 16 ,IF,BE,02, 02,06,04,20 ,46,33,C9,AC, 41,3 C ， 00:’03E0H 
10630 DATA 75,FA,BF,4D,00,E8,65,FF,5E,59,lF,C3,3C,30 ， 72,03r03F0H 
10640 DATA 3C,3A,C3,F5,C3,26,8A,05,47,E8,F0,FF,72,F7,C3,CB:"0400H 


マシン語のソースリストは次のとおりです。 


THIS COMMAND CHANGES STRINGS 


CALLING SEQUENCE 

CMD "STRING!", B STRING2 


00E8 

y 

CMD 

EQU 

0E8H 


0000 

l 

PRNTBUF 

SSEG 

ORG 

RS 

0000H 

512 

;PRINT 

BUFFER 

0203 

TXTBUF 

ORG 

RS 

203H 

256 

；ASCII 

TEXT BUFFER 

0202 

OUTBUF 

ORG 

RS 

202H 

1 

; OUTPUT 1 CHR BUFFER 

06A4 

ORG 

TEXT.PNT RS 

6A4H 

2 

5 TEXT 

TOP ADDRESS 


349 




06E8 


ORG 6E8H 
EXEC_TXT_COPY RS 


2 


LODSB 

CMP 

JE 

CMP 

JE 

INC 

CMP 

JE 

MOV 

STOSB 

JMPS 


012B AC 
012C 3C00 
012E 7467 
0130 3C22 
0132 740F 
0134 FECI 
0136 80F981 
0139 7448 
013B 2E880E0B00 
0140 AA 
0141 EBE8 
350 


； LEN(STRl) 

5 STRING BUFFER 1 
； LEN(STR2) 

；STRING BUFFER 2 


000B 00 BUF1 

000C 

008C 00 BUF2 

008D 


0000 3CE8 
0002 7505 
0004 E 90801 
0007 0000 


CHG: 

0009 

010F 

TXTPNT 


SI 

SKIP 一 SPC 

AL，" ; FIRST CHR IS _ ? 
ILEGAL ； NO THEN ERROR. 
DI,OFFSET BUF1+1 
CS 
ES 

CX,CX ; CLEAR COUNTER 
SI 


A し， 00H 
GCLMAIN 
AL, … 
CHG30 

C し 

CL,129 
OVER 
BUF1,C し 

CHG20 


0174 

018C 

CHG20: 

0197 

0143 

0183 

012B 


AL,CMD 

CHG05 

CHG10 

0000H ; COMPARE ASCII TEXT 

；POINER 


010D 

010E 

00 

00 

HIT.FLAI 

NO_CHG_l 

3 DB 
r LG DB 

00H 

00H 

； ON UHEN HIT THE STR. 
；FIND ONLY FLAG. 

010F 

0115 

2EC6060B0000 

2EC6068C0000 

CHG10 ： 

MOV 

MOV 

BUF1,0 

BUF2,0 

；CLEAR BUFFERS 


CHG05: 

C し(： 

RETF 


0009 F8 
000A CB 


06EA 

ORG 

6EAH 



EXEC.TXT 

• 

RS 

2 


1406 

ORG 

1406H 



TEXT_LINE 

# 

RS 

2 

；TRANSLATE BUFFER 

1412 

ORG 

1412H 



VRAM RS 

• 

2 

# 

TEXT VRAM SEGMENT 

1840 

ORG 

1840H 

• 

OUTPUT DEVICE FLAG 

OUTFLAG RS 

1 

• 

， 

4 CRT 3 LPT 


CSEG 





ORG 

0 



0004 

CRT 

EQU 

4 

5 CRT DEVICE 


NCALMPNEWUSHOPORNC 
ICCJMPPXI 


5522690C 


9 

c 


68C5FE736 

4E37B0034 

BCF13678A 

111222222 

111111111 

000000000 


H 8 H 8 
0 2 0 2 
0 10 1 


B s B s 
D R D R 


PEP 
M N M 3 

c J J D 


CHG30J 


;ILLEGAL FUNC, CALL 


AL,1 ； ONLY FIND 
GCLMAIN10 

AL,AL ； EXCHANGE 

NO_CHG_FLG,AL 
SKIP SPC 


0174 

0175 

0177 

0179 

017B 

017D 

017F 

0181 

0182 


0174 

0193 

0174 

0197 

018C 


CHG40: 


0197 

0197 

0183 

015C 


CALL 

CMP 

JNE 

INC 

CAL し 

CMP 

JE 

CMP 

JNE 

XOR 

MOV 

INC 

し ODSB 

CMP 

JE 

CMP 

JE 

INC 

CMP 

JE 

MOV 

STOSB 

JMPS 


SKIP_SPC: 



LODSB 

CMP 

0181 

JE 


CMP 

0174 

JB 


CMP 

0174 

JE 

SKIP. 

SPC—END: 


DEC 


SKIP 一 SPC 
AL// 
NO_CHG ； 
SI 

SKIP 一 SPC 
AL,00H 
GO.MAIN 
AL, … 

ILEGAL 
CX,CX ； 
DI,OFFSET 
SI 


AL,00H 
GO.MAIN 
A'""" 

goImain 

C し 

CL,129 

OVER 

BUF2,CL 

CHG40 


AL,00H 

SKIP_SPC_END 
AL,0BH 
SKIP 一 SPC 
AL/ 

SKIP 一 SPC, 

SI 


CMD STRING IS NO CHANGE 


CLEAR COUNTER 
BUF2+1 


RET 


ILEGALs 


018C 

BF0200 



MOV 

018F 

E8CB01 

035D 


CA し L 

0192 

C3 



RET 




NO. 

CHG： 

0193 

B001 




0195 

EB02 

0199 


JMPS 




GO. 

MAIN: 

0197 

32C0 



XOR 




GO. 

MAIN10S 

0199 

2EA20E01 



MOV 

019D 

E8D4FF 

0174 


CALL 


0143 E82E00 
0146 3C2C 
0148 7549 
014A 46 
014B E 82600 
014E 3C00 
0150 7445 
0152 3C22 
0154 7536 
0156 33C9 
0158 BF8D00 
015B 46 

015C AC 
015D 3C00 
015F 7436 
0161 3C22 
0163 7432 
0165 FECI 
0167 80F981 
016A 7417 
016 C 2E880E8C00 
0171 AA 
0172 EBE8 


MAIN PROGRAM 


01A0 

36A1A406 

♦ 

MOV 

01A4 

2EA 30700 

MOV 

01A8 

BE0C00 

MOV 


AX,WORD PTR TEXT.PNT 

UORD PTR TXTPNT,AX 

SI,OFFSET BUF1+1;STRING1 BUF 
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0183 

B00F 

OVER: 

MOV 

AL,15 

;STRING TOO LONG 

0185 

BF0000 


MOV 

DI,0 

;DISPLAY ERROR MES. 

0188 

E 80201 

035D 

CALL 

ROM 


018B 

C3 


RET 




2 
♦ M 
I o 
D R 


0 8 B 7 0 3 
0 0 0 F 2 F 
c c 4 c 2 c 4 
A 3 7 3 7 3 7 


E 3 
4 c 



01C3 

FIND40: 

01F4 

01F1 

03DE 

FIND45： 


JNB FIND40 

MOV HIT_FLAG,1 

TEST NO_CHG_FLG,l 

JNE FIND40 

CALL DEL 

CALL INS 

JMPS FIND30 

CMP HIT 一 FLAG,1 

JNE FIND50 

TEST NO_CHG_FLG,l 

JNE FIND45 

CALL TRANS 


01DE 


01DE 2E803E0D0101 
01E4 750E 
01E6 2EF6060E0101 
01EC 7503 
01EE E8ED01 


51 

56 

IE 

16 

IF 

BE0302 

AC 

0AC0 
7405 
E 88500 
EBF6 


01F1 

E 81100 

0205 

FIND50： 

CALL 

HIT 

01F4 

E 83400 

022B 

CALL 

SET 一 TXTPNT 

01F7 

7205 

01FE 

JB 

FIND.END 


0217 B80D0A 


FIND THE STRING ! 

IF NO CHANGE THEN 
SKIP DELETE & INSERT. 
ELSE 

ENDIF 

IF NOT FOUND THEN 
NEXT 

ELSE IF NO CHANGE THEN 
SKIP TRANSLATE TO TXT 
ELSE TRANSLATE 
ENDIF 

DISPLAY LINE, 

ENDIF 

UNTIL 

(DETECT END OF TEXT) 



♦ 

f 

DISPLAY 


HIT； 

PUSH 

PUSH 

PUSH 



PUSH 

POP 

MOV 


HIT10: 

LODSB 

OR 

0217 


JE 

029A 


CAL し 

020D 

HIT.END： 

JMPS 



MOV 


CX 

SI 

DS 


SAVE RESISTERS 


SS 

DS 


SET [DS] 

SI,OFFSET TXTBUF 

WHILE CHRONU し L DO 


AL,AL 
HIT 一 END 
OUTCHAR 
HIT10 


OUTPUT CHARACTER 
ENDUHILE 


AX,0A0DH ； OUTPUT DELIMITER. 


01F9 

01FC 

E86C01 

EBB4 

參 

0368 

01B2 

CALL 

JMPS 

CHECK STOP 

FIND20 

01FE 

0201 

0204 

BF1E00 

E 85901 

CB 

FIND. 

035D 

_END: 

MOV 

CALL 

RETF 

DI,30 ; DIRECT MODE ENTRY 

ROM 

；FOR FALE SAFE. 


01AB 2E8A0E0B00 
01B0 0E 
01B1 IF 

01B2 E 89200 0247 

01B5 2EC6060D0100 
01BB 16 
01BC 07 
01BD BF0302 

01C0 E 84202 0405 

01C3 E8A500 026B 


FIND20: 


FIND30: 


MOV CL,BUF1;LENGTH OF STRING1 
PUSH CS ; SEGMENT OF STRING BUF 

POP DS 

CALL CONV_TEXT ; CONVERT TEXT TO ASCII 

MOV HIT_FLAG，0 

PUSH SS 

POP ES 

MOV DI,OFFSET TXTBUF 

CALL SKIP_LINE_NO 

REPEAT 

CALL COMPARE : COMPARE THE STRINGS 


E F 1 
D 6 9 
13 3 
0 0 0 


0 0 
1-1 
0 0 
D E 
0 0 
6 6 


1 


0 0 0 0 

6 6 6 8 6 5 5 
1 c F 0 9 B E 
3 E E 5 8 8 B 

7 2 2 7 E E E 

6 8 E 4 6 9 c 
c c c D D D D 

ix 1* 1-1-1-1-1 
0 0 0 0 0 0 0 


567 8 9 A DE 025 
000 000 00111 
222 222 22222 
000 0 0 0 0 0 c 0 0 
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E 81000 025B 

BB0302 
2E8B 360700 
BF1000 

E 80401 035D 

5E 

C3 


16 

IF 

2E8B1E0700 

8B07 

03D8 

833F00 

7408 

2E891E0700 

F8 

EB01 


SS 

ES 

DI,OFFSET 
AX, AX 
CX,128 

STOSU 

CX 


TXTBUF 

FOR CX=128 TO 0 STEP -1 
UORD PTR [DI]=0000H 

NEXT 


025C 

025D 

025E 

0261 

0263 

0266 

0267 

0269 

026A 


0247 56 


CONV_TEXT: 

PUSH 


； CF=1 
；ENDIF 

: LOAD [DS] 


SS ; SET CDS；] 

DS 

BX,UORD PTR TXTPNT 
AX,[BX] ; GET LINK POINTER 
BX，AX 

UORD PTR [BX],0 ; NEXT LINK IS END ? 
LINK.END ； IF NO THEN 

UORD PTR TXTPNT,BX 

CF=0 

LINK END10 ； ELSE 


0244 

0245 

LINK 

LINK 


0244 F9 

0245 IF 
0246 C3 


SI ； SME OFFSET 

； OF THE STRING POINTER. 

CLEAR_BUFFER 

BX,OFFSET TXTBUF ; ASCII TEXT LINE BUF 
SI,UORD PTR TXTPNT ； TEXT LINE POINTER 
DI,16 ; CONVERT TEXT TO ASCII 

ROM 

SI ； LOAD OFFSET 

; OF THE STRING POINTER. 


025B 51 


NULL CLEAR OF BUFFER 

CX 


CLEAR 一 BUFFER: 

PUSH 


CONVERT TEXT TO ASCII STRINGS 

INPUT ; TXTPNT [TEXT POINTER： 
OUTPUT : BUFFER [0060H:0203H] 


021A 

36A 30202 


Moy 

UORD PTR 

0UTBUF,AX 

021E 

B 90200 


m\j 

CX,2 

; 2 CHRS 

0221 

BF2500 


MOV 

DI,37 

; OUTPUT CHRS 

0224 

E 83601 

035D 

CALX 

ROM 


0227 

IF 

f 

POP 

DS 

5 LOAD RESISTERS 

0228 

5E 


POP 

SI 


0229 

59 


POP 

CX 


022A 

C3 


RET 





SET. 

TXTPNT： 



022B 

IE 


PUSH 

DS 

;SAVE [DS] 


LVVVLPT 
A o o o A o E 
c M M M c p R 


8 B E 3 6 9 A 
4 4 4 5 5 5 5 
2 2 2 2 2 2 2 
0 0 0 0 0 0 0 


CDE357AC12 
2223333344 
2222222222 
0 0 0 0 0 0 0 0 0 0 


H 

s p V R uv D p p T 
uoooo し E o E 
PPMXMCR PR 


2 

0 


0 

0 

3 0 0 B 
0 c 8 A 
6 7 F 3 9 c 3 
1 0 B 3 B F F 


9 3 
5C 


s 

D 


p T 
o E 
•, p R 


H s 
s p V MV D p uv c p c : 
UOOODMEO し M T 0 
•, PPMMACJMCJ :S1 

D D 

E E 


；COMPARE STRINGS WITH ASCII TEXT 
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0296 00 
0297 00 
0298 00 
0299 00 


INPUT : AL 


FIB DB 
KNJ 一 FLG DB 
OUTCHR_NUM DB 
OUTCHR.BUF DB 


CX 

SI 

;CF=0 UNMATCH 


0284 59 
0285 5E 
0286 F8 
0287 C3 

COMP30 ： 

0288 59 
0289 5E 
028A 5F 


029A 3C1B 
029C 7507 


OUTCHAR ： 


02A5 


CMP AL,1BH 5 ESC ? 

JNE OUTCHAR.10 ； YES 


；ESC FLAG 
: KI KO FLAG 


0270 A6 
0271 7506 
0273 FEC9 
0275 75F9 
0277 EB0F 

0279 59 
027A 5E 
027B 5F 
027C 47 
027D 268A05 
0280 0AC0 
0282 75E9 


026B 56 
026C 51 


; INPUT : CL [LENGTH OF STRING] 

; SOURCE : STRINGS IN DS：SI 

; DEST. : ASCII TEXT IN ES：DI 

• 

i OUTPUT : CF=1 THEN HIT !!! 

; CF=0 THEN UNMATCH* 

COMPARE: 




PUSH 

SI 




PUSH 

CX 



COMP05 ： 

PUSH 

DI 




PUSH 

SI 




PUSH 

CX 



COMP10: 

CMPSB 



0279 


JNE 

COMP20 ； 

DIFFERENT 



DEC 

CL 


0270 


JNE 

COMP10 


0288 

COMP20 : 

JMPS 

COMP30 ； 

MATCH 



POP 

CX 




POP 

SI 




POP 

DI 




INC 

DI 




MOV 

AL,ES:[DI] 

；END OF LINE ? 



OR 

AL,AL 


026D 


JNE 

COMP05 



028B 59 
028C 5E 
028D F9 
028E C3 


028F BF0300 
0292 E8C800 
0295 CF 


POP CX 

POP SI 

STC j 

RET 

ERROR DISPLAY 


TYPE_MISMATCH_ERROR ： 
MOV DI,3 

035D CALL ROM 

IRET 


OUTPUT CHARACTER 


CF=1 MATCH 


TYPE MISMATCH ERROR 


H H H H 
0 0 0 0 
0 0 0 0 


XII 
c s D 


p p c T p p p 
o o し E o o o 
p p c R p p p 


7 61 

5 5 5 

D E F 

6 6 6 
2 2 2 
0 0 0 
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2E803E 960201 


7523 

02D0 

32E4 


3C4B 


7449 

02FC 

2E 88269702 


2E 88269602 


36803 E 401804 


740A 

02CF 

B01B 


E 82200 

02EC 

B048 


E81D00 

02EC 


2E803E 970201 
7514 02EC 

2E803E 980200 
753C 031C 

2C20 

2EA 29902 
2EFE 069802 
C3 


一 30: 
PUSH 


02CF C3 


029E 2EC 606960201 
02A4 C3 


OUTCHAR 

02EC 51 
02ED B 90100 
02F0 36A 20202 
02F4 BF2500 

02F7 E 86300 035D 

02FA 59 
02FB C3 


MOV F1B,1 ； 

RET ; 

OUTCHAR—10: ; 

CMP F1B,1 ; 

JNE OUTCHAR.20 
XOR AH,AH 
CMP AL,4BH ; 

JE OUTCHAR_40 ; 

MOV KNJ_FLG,AH ； 

MOV FIB,AH ; 

CMP OUTFLAG,CRT ; 

JE 0UTCHAR.15 ; 

MOV AL,1BH ; 

CALL OUTCHAR.30 
MOV AL,48H 
CALL OUTCHAR 一 30 
0UTCHAR_15： 

RET ; 

OUTCHAR_20: 

CMP KNJ_FLG,1 ； 

JNE OUTCHAR_30 
CMP OUTCHR_NUM,0 
JNE OUTCHAR—60 
SUB AL,20H 
MOV OUTCHR_BUF,A し 
INC OUTCHR_NUM 
RET 


ESCAPE FLAG ON 
END. 

ELSE 

ESC ON ? 


KI ? 

YES THEN KNJ.FLG ON. 
ELSE KO 

CLEAR ESC FLAG 
OUTPUT DEVICE IS CRT ? 
YES END* 

NO OUTPUT KO CODE 


END. 

KI 

FIRST CHAR ? 

NO THEN OUTPUT 2 BYTES 
ELSE 

SAVE FIRST CHAR 

COUNTER+1 

END. 


032C 

032D 

032E 

032F 


5 NORMA し OUTPUT 

cx 

CX,1 ； ONE CHARACTER 

OUTBUF,AL ; SET BUFFER CHR. 

DI,37 ; OUTPUT CURRENT DEVICE. 

ROM 

CX 


5 OUTCHAR PART II [KANJI] 

OUTCHAR_II： 

PUSH DS 
PUSH ES 
PUSH SS 
POP DS 


6UTCHAR 一 40: 


02FC 

FEC4 



INC AH 



02FE 

2E 88269702 



MOV KNJ FLG,AH ; 

KI 


0303 

36803 E 401804 



CMP OUTFLAG,CRT ; 

OUTPUT 

DEVICE IS CRT ? 

0309 

740A 

0315 


JE OUTCHAR 50 ; 

YES THEN END. 

030B 

B01B 



MOV AL,1BH ; 

OUT TO 

THE DEVICE KI. 

030D 

E8DCFF 

02EC 


CALL OUTCHAR 30 



0310 

B04B 



MOV AL,4BH 



0312 

E8D7FF 

02EC 


CALL OUTCHAR 30 






OUTCHAR. 

50： 



0315 

2EC 606960200 



MOV F1B,0 ; 

CLEAR ESC FLAG 

031B 

C3 



RET ; 

END. 





OUTCHAR. 

60； 



031C 

8AE0 



MOV AH,AL 



031E 

2EA 09902 



MOV AL,0UTCHR BUF 



0322 

E 80700 

032C 


CALL OUTCHAR II 



0325 

2EC 606980200 



MOV OUTCHR NUM,0 


CLEAR COUNTER 

032B 

C3 



RET 

參 

END. 


5BDF138D 351 
AAAABBBB- 
2222222222222 
0000000000000 


- 3 5 7 A c 

- c c c c c 
-22222 


068E026B 
DDDDEEEE 
22222222 
0 0 0 0 0 0 00 


V uv V L p T 

o o o A o E 
M M M c p R 


E 6 6 F 
10 11 
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DEL: 

33C9 

2E8A0E0B00 

83F900 

7501 037C 

C3 

DEL10: 


037C IE 
037D 56 


0339 36A 30000 
033D 36A 30200 
0341 368E 061214 
0346 B 90400 
0349 CD89 


06 

PUSH 

IF 

POP 

8BD7 

MOV 

8BF7 

MOV 

03F1 

ADD 


ES 

DS 

DX,DI ; SAVE FIRST POINTER IN [DX] 

SI,DI ； END POINT OF 

SI,CX ； THE STRING IN TEXT. 


SS ; CALL IN ROM ROUTINE. 

DS 

0C4H 


034F 50 
0350 0420 
0352 E897FF 
0355 58 
0356 8AC4 
0358 E891FF 
035B EBEE 


XOR CX,CX 

MOV CL,BUF1；IF LENGTH IS ZERO THEN 

CMP CX,0000H ； END. 

JNE DEL10 

RET 

PUSH DS ; SAVE RESISTERS 

PUSH SI 


MOV UORD PTR PRNTBUF,AX 
MOV UORD PTR PRNTBUF+2,AX 
MOV ES,UORD PTR VRAM 
MOV CX,4 
INT 89H 

OUTCHAR_II_05 ： 

POP CX 
POP ES 
POP DS 
RET 

OUTCHAR_II—10: 

PUSH AX 
ADD AL,20H 

02EC CALL OUTCHAR_30 

POP AX 
MOV AL,AH 

02EC CALL OUTCHAR.30 

034B JMPS OUTCHAR_ 11,05 

i INTERPRITER ROM CALL 

♦ 

ROM ： 


PUSH 

DS 

；SAVE RESISTERS 

PUSH 

SI 


PUSH 

CX 



0360 16 
0361 IF 
0362 CDC4 


0330 51 

033136803 E 401804 
0337 7516 034F 


CHECK STOP KEY 




CHECK—STOP: 



0368 

BF4B00 


MOV 

DI,75 

；KEY SENSE 

036B 

E8EFFF 

035D 

CALL 

ROM 


036E 

C3 


RET 




DELETE STRING1 IN TEXT 


F 16 9 B 
6 7 7 7 7 
3 3 3 3 3 
0 0 0 0 0 


9 7 F 3 
5 0 1c 

B c D E 
4 4 4 4 
3 3 3 3 
0 0 0 0 


EF024 
7 7 8 8 8 
3 3 3 3 3 
0 0 0 0 0 


H 

s p T 
u o N 
p p I 


0 
1 
T I 
R I 

cl 

» I 

G R 
A A 

F c 
X T T 

c u u 
o o 

H 

s p E 
u M N 
p c J 


E 61 
15 5 

D E F 
5 5 5 
3 3 3 
0 0 0 


CX SI DS 


p p p T 
o o o E 
p p p R 


9 E F 3 

5 5 1c 

4 5 6 7 

6 6 6 6 
3 3 3 3 
0 0 0 0 
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DEL20: 


；SET DS=ES(=60H) 
；SAVE LEN(STR2$) 

;COUNT REMAINDER 


AC 

41 

3C00 

75FA 

4E 

8BFE 

03FB 

81FF0103 

7203 

E9C0FD 


INSERT THE STRING2 


POINT OF INSERT PART 
BUF2+1 ； STRING2 TOP 
GO INSERT ! 


;DECREASE MOVEMENT 
MOVSB ； MAKE SPACES FOR STR2$ 
;SET NORMAL INCREASE 
CX,BX ; LOAD LEN(STR2$) 


INS20 ： 


03AF 


03C3 

0183 

INS30: 


03C3 FD 
03C4 F3A4 
03C6 FC 
03C7 8BCB 


03A5 06 
03A6 IF 
03A7 8BF7 
03A9 8BD9 
03AB 33C9 
03AD 8BD7 


PUSH 

PUSH 


SI ； LOAD RESISTERS 

DS 

DI,DX ; SET POINTER * 


03CA 0E 
03CB IF 
03CC 16 
03CD 07 
03CE 8BFA 
03D0 BE8D00 
03D3 F3A4 


cx cx 

Cl!bUF2 ； IF LENGTH IS ZERO THEN 
CX,0000H ; END. 

INS10 

CL,BUF1 


DS ； SAVE RESISTERS PART - 1 

SI ; SOURCE STRING2 


INS: 

0391 33C9 
0393 2E8A0E8C00 
0398 83F900 

039B 7506 03A3 

039D 2E8A0E0B00 
03A2 C3 

INS10 ： 

03A3 IE 
03A4 56 


038C 5E 
038D IF 
038E 8BFA 
0390 C3 


03D5 

07 

POP 

ES 

• 

， 

LOAD RESISTER PART-2 

03D6 

5E 

POP 

SI 

• 

， 

LOAD RESISTERS PART-1 

03D7 

IF 

POP 

DS 



03D8 

2E8A0E0B00 

MOV 

C し， BUF1 

• 

f 

CL=LEN(STR1$) 

03DD 

C3 

RET 





03C9 06 


PUSH 


ES 


SAVE RESISTER PART-2 


INSERT STRING2 IN TEXT 


0386 AC 


LODSB 


；REPEAT 

0387 AA 


STOSB 


； MOVE CHR. 

0388 3C00 


CMP 

AL,00H 

；UNTIL CHR=/ 

038A 75FA 

0386 

JNE 

DEL20 



I X X I 
D c c D 

s s I X X X 
E D s B c D 


H 


H 


00 1X00 
0 2 s B 3 3 R 
,s , , , s - - _ 

X し NIIIINV 
CAISDDDIO 


F 013568 AE0 
ABBBBBBBBC 
3333333333 
0 0 0 0 0 0 0 0 0 0 


E 

s 

F 

X F B 
DOS 

» > uv 

s s s s I I o 
c D s E D s M 


H H 

s p s p V UV p 
u o u o o o E 
p p p p M M R 


H 

s p V uv R V 

u o o o o o 

p p M M X M 


SB 


DCPECVDP 
ONMNEODM 
し ICJDMAC 


p DPDUV 

B M T E L o 
J J s R c M 


R V p E V T 
o o M N o E 
X M c J M R 


p p V T 

o o o E 

p p M R 
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CHECK NUMBER 
INPUT AL 

OUTPUT CF=1 THEN NUMBER 

CF=0 THEN NON NUMBER 

CKNUMB: 


03FC 

03FE 

0400 

0402 


AC 

41 

3C00 

75FA 

BF4D00 

E865FF 


0403 


0403 F5 
0404 C3 


03E116 
03E2 IF 
03E3 BE0202 
03E6 C 60420 
03E9 46 
03EA 33C9 


03DE 

03DF 

03E0 


SKIP LINE NUMBER 


SKIP 丄 INE—NO: 


268A05 


MOV 

AL,ES:[DI] 

47 


INC 

DI 

E8F0FF 

03FC 

CALL 

CKNUMB 

72F7 

0405 

JB 

SKIP LINE NO 

C3 


RET 



； 

END 



AL/0 / ； AL<T ? 

CKNUMB10 

AL/9'1; AL> / 9 / ? 


TRANSLATE THE TEXT TO TEXT BUFFER 


TRANS ： 



PUSH 

DS 



PUSH 

CX 



PUSH 

SI 



PUSH 

SS 



POP 

DS 



MOV 

SI,OFFSET 

OUT BUF 


MOV 

BYTE PTR 

[SI], … 


INC 

SI 



XOR 

CX,CX ； 

CLEAR COUNTER 


TRANS10: 




LODSB 

；COUNT LENGTH OF LINE. 


INC 

CX 



CMP 

AL,00H 


03EC 

JNE 

TRANS10 



MOV 

DI,4DH ； 

ONE LINE TRAN ： 

035D 

CALL 

ROM 



03F8 

5E 

POP 

SI 

03F9 

59 

POP 

CX 

03FA 

IF 

POP 

DS 

03FB 

C3 

RET 



p p T c T 
M B M E ME 
c J c R .♦ c R 


B 

M 

N 

K 

c 


0 3 A 
3 0 3 
c 2 c 3 
3 7 3c 


c D E 0 2 5 
E E E F F F 
3 3 3 3 3 3 
0 0 0 0 0 0 


E 16 
15 5 


5 8 9 c E 
0 0 0 0 0 
4 4 4 4 4 
0 0 0 0 0 
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15-3 バリアブルリスト（変数名リスト） 


RAM 上に LOAD されている中間言語状態のプログラムのバリアブルリストをとるユーティリ 
ティーを紹介しましょう。 

バリアブルリストとは，プログラム中で使用されている変数名（バリアブルネーム）をすベて 
拾い出し，アルファベット順にソートして，何行で使われているかを表示するユーティリティープ 
ログラムのことです。 

本プログラムにおいては，変数名だけではなく，ラベル ， DEF FN 関数もリストアップします。 
したがって，ラベルの相互参照のチヱックにも使えます。 

配列には，最後に ’(’ をつけて表示します。 

プログラムは， ROM 内インタプリタコールの「テキストから 1 項目抽出 」 DI = 36H(INT C4H 
コール）を使ってます。この 1 項目抽出ルーチンは，出力が， AL=0CH のときが変数名となってい 
ますので，このとき，テキストエリアのプログラムから変数名リストテーブルへ登録するようにし 
ています。このため， OUTPUT や BF や AS も変数名とみてしまいますが，実用上は支障はないと 
思います。 

1 項目抽出ルーチンは，この他にも ROM 文や行番号の抽出にも使えます。利用価値は高いと思 
いますから，変数名リストのソースを参考にして使って下さい。 

変数名テーブルのセグメントは， LTOP_SEG ( オフセット 2E1H) に入れてあります。 

変数名テーブルがいっぱいになると Out of memory のエラーが出ます 0 
デフォールトでは ，1700 H に設定してありますので ，2000 H-1700 H の 16 倍約 36 K バイトあり 
ます。これで， 560 ヶの変数名を登録できますが，メモリを拡張されている方は， LMAX (オフセッ 
卜 2E5H) の内容を 8FB6H から ， FFB 5 H に変更しますと変数名テーブルの大きさは約 64 K バ 
イトになり約 1000 個の変数名を登録できます。 

次にシステムディスクに入っている Miles. n88" のバリアブル • リストのサンプル出力を示し 
ます。 

使い方は、本プログラムを実行したのち変数名のリストをとりたいプログラムをロー ドします。 

そして 、 DEF SEG = &H1B00 : A = 0 : CALL A として下さい。 

なお，プリンタに出力するには， 

LLIST 0 

として，すぐにこのルーチンを 

A = 0:CALL A 

などとして呼び出せばよいのです。 

これは， LIST ルーチンで、、カレントデバイスへの出力 " (INT C4H DI = 25 H ) を使っている 
ためです。 CRT 表示に戻すには 、 LIST 0 とします。 
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0 'SAVE^ALIST.BAS- 

100 关关关关关关*关关关关关关关关关关关关关关关关关关关关关关关关关关关关关关关关关 


110 ^ * 

120 ^ VARIABLE LIST 关 

130 ^ * 

140 ^ FOR TechKnou 19800 关 

150 ^ * 

160 ^ ALL RIGHTS & COPYRIGHT 关 

170 ^ RESERVED 1983 BY SYSTEMSOFT (C) ^ 

180 ^ * 

190 ^ USAGE : CALL A * 

200 、 MAKE VARIABLE LIST OF TEXT IN RAM * 

210、 * 


220 /关*关关关*关关关关关关关关关关关关关关关关关关关关关关关关关关关失*****关关 

230 / 


240 DIM TEST$( 0 ) , TEST^( 0 ) , TEST!(0),TEST#(0) 
250 DEF FNTESK0)=TEST^(0) : GOTO *START 
260 *START 


270 DEF SEG=&H1B00:CLEAR ， & H1B00 
280 FOR 1=0 TO &H31F 
290 READ A$:P0KE I•VAL(•&H_+A$) 
300 NEXT 


310 BEEP 1 

320 PRINT 'Following 1ist is variable list of this 

330 BEEP 0 

340 PRINT 

350 A=0:CALL A 

360 END 

370 x 


program 


10000 DATA 8C,C8,2E,A3,El,02,B8,IE,03,2E,A3,DF,02,2E,A3,E3 
10010 DATA 02,33,C0,2E,C4,3E,DF,02,B9,00,48,F3 ， AB,36,A1,A4 
10020 DATA 06,2E,A3,EE,02,2E,8B,36,EE,02,AD,85,C0,75,03,E9 
10030 DATA 8E,00,03,C6,2D, 02,00 ， 2 E,A3,EE,02,AD,2E,A3,E 7,02 
10040 DATA 36,89,36,EA,06,2E,89,36,EA,02,BF,36,00,CD,C4,36 
10050 DATA 8B,36,EA,06,3C,00,74,CD,3C,0C,75,E4,2E,89,36,EC 
10060 DATA 02,2E,8B,36,EA,02,0E,07,BF,F0 ， 02,B9,15,00,33,C0 
10070 DATA 57,F3,AB,5F ， 8A,44,FF,3C,2A,75,03 ， AA,EB,08,3C,A1 
10080 DATA 75,0 4,B8,46,4E,AB,A4,AC,32,E4,3A,E0,74,04,8B,C8 
10090 DATA F3,M,AC,4E,3C,24,74,10,3C ， 25,74 ， 0C,3C, 21,74 ,08 
10100 DATA 3C,23,74,04,3C,28, 75 ， 0 A,AA,46,AC,4E, 30,28,75,02 
10110 DATA AA,46,BF,F0,02,E8,83,00,2E,8B > 36,EC,02,E9,80,FF 
10120 DATA E8,3A,01,BF,1E,00,CD,C4,CF,51,56,36,A2,02,02,BF 
10130 DATA 25,00,B9,01,00,E8,00,02,5E,59,C3,B0,20,E8,E9,FF 
10140 DATA E2,F9,C3,56,57,52,51,BB,02,02,BF,34,00,E8,E8,01 
10150 DATA 36,Al,02,02,36,8B,IE,04,02,36,8B, 16,06 ,02,50,53 
10160 DATA 51 ， 5 2,B8,06,00,2B,C1,8B,C8,E8,CF,FF,5A, 59,5 B,58 
10170 DATA 36,A3,02, 02,36,89 ,IE,04,02,36,89,16,06,02,BF,25 
10180 DATA 00,E8,B4,01,59,5A,5F,5E,C3,56,57,51,50,BF,4B,00 
10190 DATA E8,A5,01,58,59,5F,5E,C3,16,1F,C3,2E,C5,36,DF,02： / 
10200 DATA 8B,D6,2E,3B,36,E3,02,72,05,E8,18,00,EB,EA,BF,F0〆 
10210 DATA 02,E8,73,00, 85,09,75 ,05,E8,50,00,73,DB,8B,F2,83: 〆 
10220 DATA C6,40,EB,DC,83,C6,40,2E,89,36,E3,02,2E,3B,36,E5〆 
10230 DATA 02,76,07,B0,07,33,FF,CD,C4,CB,83,EE,40,E8,24,00 : ， 
10240 DATA B9,40,00,33,C0,F3,AA,83,EF,40,2E,A1,E7,02,26,89： x 
10250 DATA 45,2C,BE,F0,02,B9,2C,00,AC,AA,0A,C0,74,02,E2,F8〆 
10260 DATA E8,01,00,C3,06,1E,07,1F,87,FE,C3,B9,0A,00,AD,0B :， 
10270 DATA C0,74,0B,2E,3B,06,E7,02,74,0B,E2,F2 > F9,C3,2E,A1： / 
10280 DATA E 7 ， 02 ,89,44,FE,F8,C3,B9,2C,00,AC,0A,C0,74,0F,26〆 
10290 DATA 3A,05,9F,47,9E,74,04,73,01,F9,C3,E2,ED,C3,26,8A:' 
10300 DATA 05,47,0A,C0,75,06,03,F1,4E,33,C9,C3,F9,C3,06,1E〆 


0000H 
0010 H 
0020H 
0030H 
0040H 
0050H 
0060H 
0070H 
0080H 
0090 H 
00A0H 
00B0H 
00C0H 
00D0H 
00E0H 
00F0H 
0100H 
0110 H 
0120H 
0130H 
0140H 
0150H 
0160 H 
0170H 
0180H 
0190H 
01A0H 
01B0H 
01C0H 
01D0H 
01E0H 


360 




1590 1710 


1760 

1770 

1490 

1500 

1650 

1670 

1710 


1630 

1640 

1230 

1240 

1650 

1790 


1520 

1470 1480 

1490 1540 

1490 1540 

1480 1490 


1780 

1520 1530 

1680 

1650 1790 

1500 1670 1690 1700 

1750 

1680 1750 


1490 

1540 

1550 . 

1560 

1800 

1550 

1560 

1800 



1550 

1510 

1560 

1540 

1800 

1550 

1560 

1750 


*COPY.FILE 

^GET.FILE.NAME 

兴 GET,SEC 

*INIT 

^SET.ATR 

*SKIP 

A 

A$ 

A0$ 

AS 

ATR$ 

D$ 

DIR0$ 

FI 
FA 丰 
FB$ 

FD 

FDR$ 

FILE.NAME$ 
FROM.DIRTRK 
FROM.FILE$ 
FROM.MAXTRK 
FROM.SEC 
FROM.SLOT 
OUTPUT 
P 

REC 
TA 丰 
TB$ 

TD 

TDR 丰 

TO.DIRTRK 
TO.FILE$ 
TO.MAXTRK 
TO.SEC 
Z 


10310 DATA 07,iF,E8,D2,FF,06,lE,07,lF,C3,16,lF,C3,E8,29,FF: / 01F0H 
10320 DATA 0E,07,2E,C5,36,DF,02,2E,3B,36,E3,02,74,EC,B0,FF ： ， 0200H 
10330 DATA 2E,A2,F0,02•33,C0,2E•A2,E9,02,8B,D6,8B,FE,BE,F0: ， 0210H 
10340 DATA 02,E8,CA,FF,72,0E,85,C9,74,0A,8B,F2,BF,F0,02,B9: / 0220H 
10350 DATA 2C,00,F3,A4,8B,F2,83,C6,40 ， 2E,3B,36,E3,02,72 ， DA " 0230H 
10360 DATA 2E,A0,F0,02,3C,FF,74,B2,2E,8B,36,DF,02,8B,D6,8B: ， 0240H 
10370 DATA FE,BE,F0,02,E8,97,FF,85,C9,75,0B,52,E8,16,00,5A:'0250H 
10380 DATA 8B,F2,B0,FF,88,04,8B,F2,83,C6,40,2E,3B,36,E3,02r0260H 
10390 DATA 72,DB,E9,88,FF,B9,2C,00,2E,80,3E,E9,02,00,75,27:/0270H 
10400 DATA 2E,FE,06,E9,02,8B,F2,AC,0A,C0,74,1B,E8,3A,FE,E2: ， 0280H 
10410 DATA F6,B0,20,E8,33,FE,B9,0A,00,AD,0B,C0 ， 74,05,E8 ， 42:'0290H 
10420 DATA FE,E2,F6,E8,17,00 ， C3,B8,01, 00 ， 83, E9,1A, 76 ， 02 ,8B: ， 02A0H 
10430 DATA C1,8B,C8,E8,25,FE,8B,F2,83 ， C6,2C,EB,D9,50,52,57:/02B0H 
10440 DATA 56,5 1,B8,0D,0A,36,A3,02,02,B9,02,00,BF,25,00,E8: ， 02C0H 
10450 DATA 06,00,59,5E,5F,5A,58,C3,1E,16,1F,CD,C4,1F,C3,00 ： / 02D0H 
10460 DATA 00,00,17,00,00,B6,8F,00,00,00,00,00,00,00,00,00: ， 02E0H 
10470 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00:'02F0H 
10480 DATA 00,00,00,00,00,00,00 ， 00,00,00,00,00,00,00,00,00: 〆 0300H 
10490 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00: ， 0310H 


xfiles . n 88 のバリアブル • リスト出カサンプル 


0 0 0 
9 5 7 
7 6 6 

IX 1_ rH 


0 0 0 

5 4 2 

6 6 6 
111 


0 0 cs> 0 0 0 

3 7 14 4 6 
3 2 5 7 4 6 
111111 


CS5 〇〇 0 CS CSD CS CSJ CS 0 CS CS 

6588407742244431 

7364677722263666 

1-1IX iA IX IX 1IX 1IX 1 1-ix 111- 


0 0 0 0 0 0 0 0 0 
1088438587 
5477224344 
1111111111 


0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 CD 0 0 0 0 0 0 0 0 0 0 

_ 5 


59676255342739880013231050688227375 

21412601535466331126266635333114244 

- 1 11111111111111111-111111111111111IX 


0 

ix 
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0202 

06A4 

06EA 


00E8 

002C 

0040 

00A1 


关关关关关*关关*关关关关关关关关关关关关关关关*关关关关关关*关关关关关关关关关关关关 
关 

VARIABLE LIST FOR PC-9801 


1983 COPYRIGHT BY SYSTEMSOFT (C) 


关 关 

关关关关关矢关关关关关关矢矢关关关关关关关关关关关矢关关关关关关关关关关关关关关关关关关 

SSEG 



ORG 

202H 



DISP BUF RS 

128 




ORG 

6A4H 



TXTOP 

RS 

2 

；TEXT 

TOP 


ORG 

6EAH 



TXTPNT 

RS 

2 

；TEXT 

POINTER 


CSEG 




• 

ORG 

0000H 



， 

CMD 

EQU 

0E8H 



VA し LEN 

EQU 

44 ; MAX VARIABLE LENGTH 


REC LEN 

EQU リ AL 一 LEN+20 

5 2BYTES^10(LINE 1 


FUNC 

EQU 

0A1H 

；DEF FN 


0000 

0002 

0006 

0009 

000D 


8CC8 

2EA3E102 

B81E03 

2EA3DF02 

2EA3E302 


VA し 1ST: 


MOV AX,CS ； SAVE CODE SEGMENT 

MOV WORD PTR LT0P+2,AX 

MOV AX,OFFSET LABEL 

MOV LT0P,AX ； SET LABEL TABLE TOP. 

MOV LPNT,AX ; INITIALIZE LABEL TABLE PONTER. 


003B AD 
003C 2EA3E702 

0040 368936 EA06 
0045 2E8936EA02 
084A BF3600 
004D CDC4 
004F 368B36EA06 
0054 3C00 

0056 74CD 0025 


5 GET LINE NO. 
LIN_NO,AX 

UORD PTR TXTPNT,SI 
PNT,SI 

DI,36H ; GET 1 ITEM IN TEXT. 
0C4H 

SI,UORD PTR TXTPNT 
AL,0 ； END OF LINE ? 
NEXT_LINE 


33C0 

XOR 

2EC43EDF02 

し ES 

B 90048 

MOV 

F3AB 

REP 


AX,AX ； CLEAR LABEL TABLE 
DI,DWORD PTR じ TOP 
CX,4800H 
STOSU 


001D 36A1A406 
0021 2EA3EE02 

0025 2E8B36EE02 
002A AD 
002B 85C0 
002D 7503 
002F E98E00 

0032 03C6 
0034 200200 
0037 2EA3EE02 


MOV 

MOV 

NEXT_LINE: 

MOV 

LODSU 

TEST 

0032 JNE 

00C0 JMP 

NEXT.LINE10 ： 
ADD 
SUB 
MOV 


AX,UORD PTR TXTOP 

NLINE,AX ; INITIALIZE TEXT POINTER. 


SI,NLINE. 

AX, AX 
NEXT.LINE10 
PRO—END 


LOAD NEXT LINE ADDRESS, 
LOAD LINK POINTER. 

LINK POINTER=0 ? 

5 YES THEN PROGRAM END, 


AX,SI 
AX,2 

NLINE.AX 


；NEXT LINK POINTER. 


u 

s 

D uv 

o o 


V V uv T uv p 

000 NOME 
M : MMMIMCJ 
0 


s 


VA 


13 8 B 
1111 
0 0 0 0 
0 0 0 0 
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MOV 

PNT10,SI 

；SAVE NEXT POINT. 


MOV 

SI,PNT 

5 LOAD VARIABLE TOP. 


PUSH 

CS 



POP 

ES 



MOV 

DI,OFFSET 

BUF 


MOV 

CX,21 



XOR 

AX, AX 



PUSH 

DI ； 

CLEAR BUFFER 


REP 

STOSU 



POP 

DI 



MOV 

AL, - 1[SI] 



CMP 

AL,〆*/ ； 

LABEL ? 

007E 

JNE 

VALIST12 



STOSB 



0086 

JMPS 

VALIST20 



VALIST12： 




CMP 

AL,FUNC ； 

DEF FN FUNCTION ? 

0086 

JNE 

VALIST20 



MOV 

AX/NF〆 



STOSU 




リ ALIST20: 




MOVSB 

• 

FIRST CHR 


LODSB 

♦ 

f 

GET LEN(VAL)-1 


XOR 

AH, AH 



CMP 

AH,AL ； 

AL=0 ? 

0092 

JE 

VALIST30 



MOV 

CX,AX 



REP 

MOVSB ; 

MOV BUF VARIABLE NAME. 


VALIST30： 




LODSB 

; リ ARIABLE [於 ！#(] 


DEC 

SI 



CMP 

AL/$ X 


00A8 

JE 

VALIST40 



CMP 

ALW 


00A8 

JE 

リ ALIST40 



CMP 

AL/! / 


00A8 

JE 

VALIST40 



CMP 

AL/# / 


00A8 

JE 

VALIST40 



CMP 

AL/( X 


00B2 

JNE 

VALIST50 



VALIST40： 




STOSB 




INC 

SI 



LODSB 




DEC 

SI 



CMP 

AL/( / 


00B2 

JNE 

VALIST50 



STOSB 




INC 

SI 



VALIST50: 




MOV 

DI,OFFSET 

BUF 


013B CALL TOUROKU 


005C 2E8936EC02 
0061 2E8B36EA02 
0066 0E 
0067 07 
0068 BFF002 
006B B 91500 
006E 33C0 
0070 57 
0071 F3AB 
0073 5F 
0074 8A44FF 
0077 3C2A 
0079 7503 
007B AA 
007C EB08 

007E 3CA1 
0080 7504 
0082 B8464E 
0085 AB 


AC 

4E 

3C24 

7410 

3C25 

740C 

3C21 

7408 

3C23 

7404 

3C28 

750A 


00B2 BFF002 
00B5 E 88300 


00B8 2E8B36EC02 
00BD E 980 FF 


0040 


MOV SI,PNT10 ; LOAD NEXT POINT. 

JMP VALIST10 


0058 3C0C 

005A 75E4 


0040 


CMP AL,0CH ； VARIABLE ? 

JNE VALIST10 : NO THEN LOOP. 


4 0 4 8 4 
E E 0 c A 
4 c 2 A 4 B 3 
A A 3 3 7 8 F 

6 7 8 A c E 0 
8 8 8 8 8 8 9 
0 0 0 0 0 0 0 
0 0 0 0 0 0 0 


23468 ACE0246 
99999999 AAA A 
00000000000 0 
00000000000 0 


8 2 
2 0 

A6CEC5A6 

A4A437A4 

89ABCE01 
AAAAAABB 
0 0 0 0 0 0 0 0 
0 0 0 0 0 0 0 0 
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DISP 一 BUF,AL 

OUTPUT TO CURRENT DEVICE 
1 CHARACTER 


SPC: 


PRINT SPC(CX); 

DISPLAY CX SPACES* 


00DB B020 


MOV 

AL, … 

00DD E8E9FF 

00C9 

CALL 

OUTCHR 

00E0 E2F9 

00DB 

し 0 OP 

SPC 

00E2 C3 


RET 



DISPLAY LINE NO. 


DISP NO ： 


00E3 

56 


PUSH 

SI 

5 SAVE REISITER 

00E4 

57 


PUSH 

DI 


00E5 

52 


PUSH 

DX 


00E6 

51 


PUSH 

CX 


00E7 

BB0202 

； 

MOV 

BX,OFFSET DISP BUF 

00EA 

BF3400 


MOV 

DI,34H 

5 PRINT VAL(AX) 

00ED 

E8E801 

02D8 

CALL 

ROM 

00F0 

36A10202 

l 

MOV 

AX,UORD 

PTR DISP_BUF 

00F4 

368B1E0402 


MOV 

BX,UORD 

PTR DISP BUF+2 

00F9 

368B1 60602 


MOV 

DX,UORD 

PTR DISP_BUF+4 

00FE 

50 

5 

PUSH 

AX 


00FF 

53 


PUSH 

BX 


0100 

51 


PUSH 

CX 


0101 

52 


PUSH 

DX 


0102 

B 80600 


MOV 

AX,6 

；PRINT SPC(6 - C: 

0105 

2BG1 


SUB 

AX,CX 

0107 

8BC8 


MOV 

CX,AX 


0109 

E8CFFF 

00DB 

CALL 

SPC 


010C 

5A 


POP 

DX 


010D 

59 


POP 

CX 


010E 

5B 


POP 

BX 


010F 

58 


POP 

AX 


0110 

36A 30202 

5 

MOV 

UORD PTR 

DISP BUF,AX 

0114 

3689 1E0402 


MOV 

WORD PTR 

DISP BUF+2,BX 

0119 

3689160602 


MOV 

UORD PTR 

DISP BUF+4,DX 


SAVE NUMBER 


LOAD NUMBER 


OUTCHR ： 


00C9 51 


PUSH 

00CA 56 


PUSH 

00CB 36A 20202 


MOV 

00CF BF2500 


MOV 

00D2 B 90100 


MOV 

00D5 E 80002 

02D8 

CALL 

00D8 5E 


POP 

00D9 59 


POP 

00DA C3 


RET 


PROTEND ： 

01FD CALL SORT 

MOV DI,1EH ; DIRECT MODE 

INT 0C4H 

IRET ; FOR FAIL SAFE 

♦ 

： OUTPUT CHR IN AL. 


R 

T 

PH 

5 

E 21 
T , ,M 

XIYIXOIX 

CSBDCRSC 


10 
0 0 
A E 4 
31c 
8 F D F 
E B c c 

0 3 6 8 

c c c c 
0 0 0 0 
0 0 0 0 
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8BD6 

2E3B36E302 
7205 
E 81800 
EBEA 

BFF002 
E 87300 
85C9 
7505 
E 85000 
73DB 


NEU 

83C640 

2E8936E302 

2E3B36E502 

7607 017A 

B007 

33FF 

CDC4 


015D 8BF2 
015F 83C640 
0162 EBDC 


SENSE: 


02D8 


0124 

0125 

0126 

0127 

0128 


0129 

012A 

012B 

012C 

012D 

0130 

0133 

0134 

0135 

0136 

0137 


SI,REC_ し EN5 SET し PNT NEU PNT• 
LPNT’Sl 

SI, し MAX ； し MAXi し PNT 7 
NEU10 ; IF く THEN 

AL,7 ; OUT OF MEMORY 

DI,DI 
0C4H 


TOUROKU—END: 

PUSH 

POP 

RET 


SS 

DS 



; TOUROKU 

LABEL NAME 

INTO TABLE 


TOUROKU: 




し DS 

SI,DWORD 

i PTR LTOP 


TOURO10 ： 




MOV 

DX,SI 

；SAVE POINTER 


CMP 

SI, し PNT 

；COMPARE LAST Pi 

014E 

JNAE 

T0UR015 

；IF OVER THEN 

0164 

CALL 

NEU.RECORD ； NEU RECORD. 

0138 

JMPS 

TOUROKU. 

END ； END. 


T0UR015 ： 


5 ELSE 


MOV 

DI,OFFSET BUF ； CHECK LAI 

01C7 

CALL 

COMPARE 



TEST 

CX,CX 


015D 

JNE 

TOURO20 

;IF SAME THEN 

01AB 

CALL 

TUIKA 

5 ADD INTO LINE 1 

0138 

JNB 

TOUROKU, 

END 


TOURO20 ： 




MOV 

SI,DX 

；LOAD POINTER 


ADD 

SI,REC_LEN ； NEXT RECORD 

0140 

JMPS 

TOURO10 



NEU VARIABLE NAME THEN MAKE NEU RECORD 


013B 2EC536DF02 


POP CX ； LOAD RESISTERS 

POP DX 

POP DI 

POP SI 

RET 

STOP ESC KEY SENSE 


011E BF2500 MO リ DI,25H 

0121 E8B401 02D8 CALL ROM 


0 2 7 9c 
4 4 4 4 4 

11IX IX 1 
0 0 0 0 0 


E 14 6 8 B 
4 5 5 5 5 5 
11111 1 
0 0 0 0 0 0 


: DI>PEVRT 
DDOMBOON 
RAMCJMXI 

o 

c 

E 

R 


4 7 c 1 3 5 7 
6 6 6 7 7 7 7 

11111-1-IX 
0 0 0 0 0 0 0 


糊 

IIXXIOXXII 

SDCADRACDS 


H H H H し 
ssssv し PPPPT 
UUUUOAOOOOE 
PPPPMCPPPPR 


5 55F5 c 


0 1 
0 0 
B 5 
4 A 

6710 F889FE3 
5555BE5555C 


6 F 3 

1 CJ 

8 9 A 
3 3 3 

IX 1 1 
0 0 0 


365 








NEU20: 


01AB B90A00 

01AE AD 
01AF 0BC0 
01B1 740B 
01B3 2E3B06E702 
01B8 740B 
01BA E2F2 
01BC F9 
01BD C3 

01BE 2EA1E702 
01C2 8944FE 

01C5 F8 
01C6 C3 


TUIKA ： 

TUIKA10: 

01BE 

01C5 

01AE 

TUIKA20 ： 

TUIKA30: 


CX,REC 一 LEN 
AX, AX 
STOSB 

DI,REC 一 LEN 

AX,LIN_NO ; SET LINE NO. 
ES:VAL_LEN[DI],AX ; SET VARIABLE NAME. 
SI,OFFSET BUF 
CX ， VAL_LEN 

；FOR REPEAT VARIABLE LENGTH, 


AL,AL ; DETECT END MARK ? 

NEU 一 END 

NEU20 

CHG ; XCHG SI:DS,DI:ES 


ES ! PUSH DS ! POP ES ! POP DS 
DI ,SI 



し ODSB 


STOSB 


OR 

01A0 

JE 

0198 

し 0 OP 


NEU END ： 

01A4 

CALL 


.RET 


CX,10 ;10 LINE NO PAR 1 RECORD 


AX,AX ; END MARK ? 

TUIKA20 

AX,LIN_NO ; ALREADY EXISTS ? 

TUIKA30 

TUIKA10 

5 CF=1 


AX,LIN 一 NO 

-2[SI],AX ; SET LINE NO. 
5 CF=0 


01A4 061E071F CHG ： 

01A8 87FE 
01AA C3 


0180 B 94000 
0183 33C0 
0185 F3AA 
0187 83EF40 
， 18A 2EA1E702 
018E 2689452 C 
0192 BEF002 
0195 B92C00 

0198 AC 
0199 AA 
019A 0AC0 
019C 7402 
019E E2F8 

01A0 E 80100 
01A3 C3 


01C7 B92C00 

01CA AC 
01CB 0AC0 


COMPARE DS ： SI-ES:DI STRINGS 

OUTPUT : CX==0 SAME NAME 

CXO0 DIFFERENT NAME 
CF=1 THEN SI く DI 
CF=0 THEN SI > DI 


COMPARE ： 


CMP10: 


MOV 

し ODSB 
OR 


CX,VA し _ し EN 
AL,AL 


LINE NUMBER UO TUIKA SURU. 


0179 CB 
017A 83EE40 
017D E 82400 


NEU10 ： 


01A4 


RETF 

SUB 

CALL 


5 FOR FAIL SAFE 
；ELSE 

SI,REC_LEN ; CLEAR 1 RECORD 


CHG 


5 XCHG SI:DS,DI:ES 


UVRPBUVUVUVUV 

OOEUOOOO 

MXRSMMMM 


3 

s p 

uv D p OCT 

o OREMEOTE 
M し OJCJ し SR 


uv V c 

o o 

MM 


c T 
L E 
c R 


H G 
s H T 
u c E 
p X R 
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01EE 

01EF 

01F0 

01F1 

01F2 

01F5 

01F6 

01F7 

01F8 

01F9 


01DE 

01E1 

01E2 

01E4 

01E6 

01E8 

01E9 

01EB 


;XCHG ES,DS 


；XCHG ES,DS 


01EC F9 
01ED C3 


CMP40 

AL,ES:[DI] 

DI 

CMP20 ； CF=0 CXO0 
CMP30 

5 CF=1 CXO0 
CMP10 

； CF=0 CX=0 

AL,ES:[DI] 

DI 

AL,AL 
CMP50 
SI ,CX 
SI 

CX,CX ； CF=0 CX=0 


5 CF=1 CXO0 


01DE 


JE 
CMP 
し AHF 
INC 
SAHF 

01DB 


JE 

01DA 


JNB 



STC 


CMP30 ： 

RET 

01CA 

CMP20: 

LOOP 

RET 


CMP40 ： 

MOV 



INC 



OR 

01EC 


JNE 



ADD 



DEC 



XOR 



RET 


CMP50 ： 

STC 



RET 


COMPARE—II: 


PUSH 

PUSH 

POP 

POP 

01C7 CALL 

PUSH 
PUSH 
POP 
POP 
RET 

SEND: 

PUSH 

POP 

RET 


SORT LABEL AND DISPLAY 


SORT: 


E829FF 

0129 

CALL 

0E 


PUSH 

07 


POP 

2EC536DF02 


し DS 

2E3B36E302 


CMP 

74EC 

01FA 

JE 

B0FF 


MOV 

2EA2F002 


MOV 

33C0 


XOR 

2EA2E902 

SORT10: 

MOV 

8BD6 


MOV 

8BFE 


MOV 

BEF002 


MOV 


SENSE 

CS 

ES 

SI,DWORD PTR LTOP 

SI,LPNT ; LABEL TABLE EXISTS ? 

SEND ； NO THEN END. 

AL,0FFH ； DUMMY MAX VALUE SET 

BYTE PTR BUF,AL 

AX,AX ； LABEL FLAG CLEAR 

LFLG,AL 

DX,SI ； SAVE POINTER 
DI,SI 

SI,OFFSET BUF 


0221 E8CAFF 
0224 720E 


01EE 

0234 


CALL COMPARE.II ; SI:DS-DI:ES 

JB SORT20 ； BUF - TABLE 


F 

F 

2 

D 

6E7F86E7F3 
010 IE 0101 c 


5 

0 

A 0 61 

8 c 0 F I 
67A53E33 
2407043c 


9 

c 


E 

R 

A 

p 

M 

ssssossss 

EDEDCEDED 


SSDS 


5 

0 

FA 41 D 
0 3 0 0 E 
46F7E 439323 
7294977 FCEC 

DF 234579 ABD 
CCDDDDDDDDD 

i-111* 1-1A 1-1_ 1 
00000000000 


6 F 3 

1A 1 c 

ABC 
F F F 
111 
0 0 0 


D 0127 CE046 ACE 
F 0 0 0 0 0 0 IX 11 111 
1222222222 222 
0000000000 000 
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OUTPUT20 ： 

MOV 

0UTPUT25: 

し ODSU 

OR 

JE 

CAL し 
LOOP 


0296 B90A00 

0299 AD 
029A 0BC0 
029C 7405 
029E E842FE 
02A1 E2F6 


85C9 

750B 

52 

E 81600 
5A 

8BF2 

B0FF 

8804 


TEST 

JE 

MOV 

MOV 

MOV 


85C9 

740A 

8BF2 

BFF002 

B92C00 


0275 B92C00 
0278 2E803EE 90200 
027E 7527 
0280 2EFE06E902 
0285 8BF2 

0287 AC 
0288 0AC0 
028A 741B 
028C E83AFE 
028F E2F6 
0291 B020 
0293 E833FE 


♦ 

OUTPUT: 


02A7 

MOV 

CMP 

JNE 

02A7 

INC 

MOV 

OUTPUT10J 

LODSB 

OR 

JE 

00C9 

CALL 

0287 

LOOP 

00C9 

MOV 

CALL 


0266 

0275 

SORT40: 

024D 

01FD 


0266 8BF2 
0268 83C640 
026B 2E3B36E302 
0270 72DB 
0272 E988FF 


CX,CX 

SORT20 

SI,DX ； MOV LABEL NAME INTO BUFFER. 

DI,OFFSET BUF 

CX,VAL_LEN 

； DI:ES く - SI:DS 
；BUF く - TABLE 

MOVSB 

SI,DX ； LOAD POINTER 
SI,REC_LEN ; NEXT RECORD 
SI,LPNT ; END RECORD ? 

SORT10 ; NO THEN LOOP 
AL’BYTE PTR BUF 
AL,0FFH ; END MARK ? 

SEND ; YES THEN END. 

SI,LTOP ; NO THEN OUTPUT LABELS. 

； AND LINE NO. 

DX,SI ； SAVE POINTER 
DI’SI 

SI,OFFSET BUF 


0234 

SORT20: 

021A 

01FA 

SORT30: 


0232 F3A4 

0234 8BF2 
0236 83C640 
0239 2E3B36E302 
023E 72DA 
0240 2EA0F002 
0244 3CFF 
0246 74B2 
0248 2E8B36DF02 

024D 8BD6 
024F 8BFE 
0251 BEF002 


CX,CX 

SORT40 

DX 

OUTPUT 

DX 

SI,DX ; LOAD POINTER 
AL,0FFH 

[SI],AL ; OUTPUT MARK. 

SI,DX ; LOAD POINTER 
SI,REC_LEN ; NEXT RECORD 
SI,LPNT ; END ? 

SORT30 

SORT 


CX,VAL_LEN ; MAX VARIABLE LENGTH 

LFLG,0 

OUTPUT40 

LFLG 

SI，DX ; LOAD POINTER 

5 OUTPUT し ABE し NAME* 

AL,AL ； IF END MARK THEN END. 

OUTPUT40 

OUTCHR 

OUTPUT10 ; 

AL, 〆 ' 

OUTCHR 

CX,10 ；10 LINE NO IN ONE LINE. 

5 GET LINE NO, 

AX, AX 
OUTPUT30 
DISP.NO 
0UTPUT25 


0254 E897FF 


01EE 


CALL 


COMPARE 一 11 


3 3 9 
A E 9 
2 0 2 
0 0 0 


79BCF024 

55555666 

22222222 

00000000 


p V D p uv p V V uv uv 

E ODMBOMEO 000 
R MACJMCJM MMM 


6 8 A c F 
2 22 2 2 
2 22 2 2 
0 00 0 0 


T H L 

s E s し p ：> ：> ：> uv D p p 
ENUAOOOO 0 DMBM 
TJPCPMMM MACJJ 
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PUSH 

PUSH 

POP 

INT 

POP 

RET 


02D8 

02D9 

02DA 

02DB 

02DD 

02DE 


B 80100 
83E91A 
7602 
8BC1 


02B1 8BC8 
02B3 E825FE 


02A3 E 81700 
02A6 C3 


关关关关关关关兴关关关关兴关关关关关关 UORK AREA 关关关关关关关关关关关关关关关关关关关 


LTOP DU 

LTOP SEG DU 
LPNT DU 

LMAX 
LIN 一 N0 

LF し G 

♦ 

PNT 
PNT10 
NLINE 


0000H 

1700H 

0000H 


LABEL TABLE TOP 
ITS SEGMENT 
LABEL TABLE POINTER 


DU 9000H-REC.LEN-10 ; LABEL TABLE MAX OFFSET 


DU 

0000H 

； LINE NO SAVE AREA 

DB 

00H 

； し ABE し FLAG 

DU 

0000H 

； し AST TEXT POINT 

DU 

0000H 

； TEXT POINTER BUFFER 

DU 

0000H 

； NEXT LINE POINTER 


SAVE DS 
DS=60H 

AND CALL ROM. 
LOAD DS 


02BD 

OUTPUT30: 

CALL 

CRLF 


RET 

OUTPUT40: 

MOV 

AX,1 


SUB 

CX,VAL LEN-18 

02B1 

JNA 

OUTPUT50 


MOV 

AX,CX 


OUTPUT50: 

MOV 

CX.AX 

00DB 

CALL 

SPC 


02F0 

031C 0000 


BUF RS VAL—LEN ; LABEL NAME BUFFEF 

DU 0000H ; FOR FAIL SAFE 


02BD 

02BE 

02BF 

02C0 

02C1 

02C2 

02C5 

02C9 

02CC 

02CF 

02D2 

02D3 

02D4 

02D5 

02D6 

02D7 


8BF2 


MOV 

SI,DX ； POINT LINE 

83C62C 


ADD 

SI,VAL し EN 

EBD9 

0296 

JMPS 

OUTPUT20 


9 

； 

OUTPUT 

CRLF TO CURRENT DEVICE 


CRLF ： 



50 


PUSH 

AX 

52 


PUSH 

DX 

57 


PUSH 

DI 

56 


PUSH 

SI 

51 


PUSH 

CX 

B80D0A 


MOV 

AX,0A0DH 

36A 30202 


MOV 

UORD PTR DISP BUF,AX 

B 90200 


MOV 

CX,2 

BF2500 


MOV 

DI.25H 

E 80600 

02D8 

CALL 

ROM 

59 


POP 

CX 

5E 


POP 

SI 

5F 


POP 

DI 

5A 


POP 

DX 

58 


POP 

AX 

C3 


RET 



4H 

s s s c s 
D s D 0 D 


E 

ix 


4 

6 F D F 3 

11 -c 1 c 


7 A D F 
A A A A 
12 2 2 
10 0 0 


2 /< 
0 < 


0 0 0 
0 0 0 


0 7 0 F 0 
0 10 8 0 

0 0 0 6 0 0 0 0 0 
000B00 0 0 0 

F13 1D 79 ACE 
DEEEEE E E E 
222222 222 
000000 000 
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031E 


し ABE し 


RS 


9000H 



END 






15-4 バー テイ カル•ファイルズ 

ディスクのファイルをロードする際，よく FILES を実行して，ファイル名を表示しますね。これ 
ですとファイルが横に連なって，区切りがないため，カーソルをロードしたいところへもっていっ 
て LOAD" とやっても Syntax error とむなしく表示されるだけです 0 

次のプログラムを実行すると，例のようにファイル名が 1 つずつ縦に表示されます。しかも/マー 
クとドライブ N0 .も先頭に付きますのでロードまたは実行したいファイルのところにカーソルを 
移動させ， LOAD や RUN とするだけでファイルのロードができます。 

FILES を実行すると，ファイル名を 15 個表示して止まります (15 個に未たないときはそれらを 
表示して 0K が表示されます ) 。目的のファイルがあればカーソルキーの [J] を押します。ファイル 
の続きを表示するには田キーを押します。なお，このプログラムは，拡張コマンド解析，スペース 
スキップ，式解析，ディスク LIO ， CRTr 义卞出力，エラーメッセージ出力，キーセンスなどのルー 
チンを利用しています。 

なお，これは全ドライブ対応となっており，ディスク ユニット がいくつ接続されていてもかまい 
ません。 


<実行例> 


FILES 2 



"2 

Tfiles.n98 

■2 

Finfo 

• n98 

■2 

D~edit.98 

■2 

Kan j i 

• key 

■2 

TSS - V2 

.0 

•2 

kan j i 

.bas 

■2 

cursor 

參 

■2 

COPY 

• MAC 

■2 

PkanjI 

• 

"2 

Kdisp 

• 

■2 

TXT 

♦ BAS 

■2 

kdisp 

.bas 

•2 

VRAM 

.bas 

■2 

HCLS 

• BAS 

■2 

DIR 

• SRT 


Ok 
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バーテイカル • フアイルズ 


1 ’sa リ e "Vfi 1 es.n88" : Ver• 2.1 

100 CLEAR ,&H1F00:DEF SEG=&H1F00 

110 CLS : PRINT "=== VERTICAL FILES for All Drives ===• 

120 RESTORE 340 

130 FOR 1=0 TO &HE5 

140 READ D$:POKE I,^AL( ， &H"+D$) 

150 NEXT I 
160 / 

170 DEF SEG=&H60 

180 FL=&H1593 —- Extended Command Flag 

190 AD=&H159C 

200 POKE FL,0:RESTORE 290 

210 FOR 1=0 TO 7 -- Set User Routine Address 

220 READ D$ ： D=VAL( B &H'+D$) 

230 POKE AD+I,D 
240 NEXT I 

250 POKE FL,1 / - - Flag On 

260 PRINT "Complete! Nou, you can get VERTICAL FILES." 
270 END 

280 User Routine Add 

290 DATA 00,00,00,IF ' V-FILES 

300 DATA 07,00,00,IF f RETF 

310 y - 

320 VERTICAL FILES Machine Code 

330 x - 

340 DATA 16,1 F,3C,A0,F8,74,0B,CB,B0,46,EB,02,B0,05,33,FF 
350 DATA CD,C4,56,89,36,EA,06,BF,22,00,CD,C4,89,36,EA,06 
360 DATA AC ， 5E,3C ， 00 ， 74,20, 3C ， 3A,74,1C,89,36,EA,06,BF,4A 
370 DATA 00,CD,C4,A0,1A,14,8A,26,03,05,FE,C4,3A,C4,73,C8 
380 DATA 3C,00,76,C8,EB,02,B 0,01 ,8A,F0,32,D2,16,07,B 4，03 
390 DATA 8B ， 1E,0A,05,C6,47,06,FF,50,CD,B0,0A,E4,75,14,53 
400 DATA E8,22,00 > 5B,C6,47,06 > 00,58,80,FA,0F > 75,03,E8,5A 
410 DATA 00,EB,E5,5B,80,FC,37,74,04,8A,C4,EB,91,A1,EA，06 
420 DATA A3,E8 ， 06,F9,CB,FE,C2,B9,05,00,B0,20,E8,36,00,E2 
430 DATA F9,B0,22,E8,2F,00,8A,C6,0C,30,E8,28,00,B0,3A,E8 
440 DATA 23 ， 00,B9 ， 06,00,8A,47,06,E8,1A,00,43,E2,F7,B0,2E 
450 DATA E8,12,00,B9, 03 ， 00, 8A, 47,0 6,E8,09, 00 ， 43, E2,F7,BF 
460 DATA 40,00,CD,C4,C3,BF,3D,00,CD,C4,C3,32,D2,50,B4,04 
470 DATA B0,07,CD,18,F6,C4,04,75,07,F6 > C4,20,75,06,EB,EE 
480 DATA 58,58,EB, 99,5 8,C3,00,00,00,00,00,00,00,00,00,00 
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バーテイカル • フアイルズ•ソースリスト 


16 

PUSH SS 


IF 

POP DS 

5 DS<=60H 

3CA0 

CHECK ： CMP AL,FILES 


F8 

C し C 


740B 

0012 JE SPACE 


CB 

RETF 



♦ 

FILES 

EQU 

0A0H 


EXEC 

EQU 

6EAH 


NEXT 

EQU 

6E8H 


RES 

EQU 

141 AH 


FCB 

EQU 

50AH 

；File Control Block 

DISKNO 

EQU 

503H 

: Total Disk Drive No. 


Vertical FILES for All Drives 
8 INCH - 5 INCH 2D - 5 INCH 2DD 
COMMAND ： FILES n ( n = Drive No* ) 
Enhanced 1984.2 .3 by E♦F. 


1F00 CSEG 1F00H 

ORG 0 


BADDR: MOV AL,46H 

；Bad Drive No* 

JMPS ERR 


ILLEGAL:MOV AL,5 

；Illegal function call 

ERR: XOR DI,DI 

；DISK error 

INT 0C4H 



5 SPACE SKIP 


0008 B046 

000A EB02 000E 

000C B005 
000E 33FF 
0010 CDC4 

0012 56 
0013 8936EA06 
0017 BF2200 
001A CDC4 
001C 8936EA06 
0020 AC 
0021 5E 
0022 3C00 

0024 7420 0046 

0026 3C3A 

0028 741C 0046 

002A 8936EA06 
002E BF4A00 
0031 CDC4 
0033 A01A14 
0036 8A 260305 
003A FEC4 
003C 3AC4 

003E 73C8 0008 

0040 3C00 

0042 76C8 000C 

0044 EB02 0048 

0046 B001 
0048 8AF0 

004A 32D2 
004C 16 


SPACES PUSH SI 

MOV .EXEC,SI 
MOV DI,22H 
INT 0C4H 
MOV .EXEC,SI 
LODSB 
POP SI 
CMP AL,0 
JE DRIVE1 
CMP AL,3AH 
JE DRIVE1 

MOV .EXEC,SI 
MOV DI,4AH 
INT 0C4H 
MOV AL,,RES 
MOV AH,.DISKNO 
INC AH 
CMP AL,AH 
JAE BADDR 
CMP AL,0 
JBE ILLEGAL 
JMPS STORE 
DRIVE1 ： MOV AL,1 
STORE: MOV DH,AL 

t 

XOR DL，DL 
DIRGET ： PUSH SS 


；Store Text Pointer 
5 FILES 

;？ FILES J check 

5 EXPRESSION ANALYSIS 

5 RESULT 
；Max Drive No* 

5 BAD DRIVE NO. 

；Drive 1 
5 DH <= Drive No. 

； D し =Counter 


012457 
0 0 0 0 0 0 
0 0 0 0 0 0 
0 0 0 0 0 0 


0 A 8 A A 3 
A E E 1 0 0 
0 6 6 4 5 5 
0 0 0 10 0 
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004D 

07 



POP ES 

5 ES <= 60H 

004E 

B403 



MOV AH,3 

5 DISK LIO BIOS CODE 

0050 

8B1E0A05 



MOV BX”FCB 


0054 

C 64706 FF 



MOV BYTE PTR 

6[BX],0FFH ; FIRST PROCESS 

0058 

50 


FILELP： 

PUSH AX 


0059 

CDB0 



INT 0B0H 

5 GET DIRECTORY 

005B 

0AE4 



OR AH,AH 


005D 

7514 

0073 


JNE ERROR 


005F 

53 



PUSH BX 


0060 

E 82200 

0085 


CALL FILED 

；rl1ename Display 

0063 

5B 



POP BX 


0064 

C 6470600 



MOV BYTE PTR 

6CBX：,00H ; NEXT PROCESS 

0068 

58 



POP AX 


0069 

80FA0F 



CMP DL,15 

；15 FILES DISPLAY 

006C 

7503 

0071 


JNE NXT 


006E 

E85A00 

00CB 


CALL KEYSEN 

5 WAIT FOR KEYIN 

0071 

EBE5 

0058 

NXT： 

JMPS FILELP 


0073 

5B 


ERROR: 

POP BX 

；Dummy POP 

0074 

80FC37 



CMP AH,55 

；Directory End 

0077 

7404 

007D 


JE PEND 


0079 

8AC4 



MOV AL,AH 

；Else DISK error 

007B 

EB91 

000E 


JMPS ERR 


007D 

A1EA06 


PENDs 

MOV AX,,EXEC 


0080 

A3E806 



MOV .NEXT,AX 


0083 

F9 



STC 


0084 

CB 


PBACK： 

RETF 

5 END OF MAIN 

0085 

FEC2 


FILED： 

INC DL 

5 COUNTER INCREMENT 

0087 

B 90500 



MOV CX,5 

5 B DNO.： 

008A 

B020 


LP2: 

MOV AL,20H 


008C 

E 83600 

00C5 


CALL DISP 


008F 

E2F9 

008A 


LOOP LP2 


0091 

B022 


； 

MOV AL •… 


0093 

F82F00 

00C5 


CALL DISP 


0096 

8AC6 



MOV AL,DH 

；DRIVE NO. 

0098 

0C30 



OR AL,30H 

；Convert to ASCI I 

009A 

E 82800 

00C5 


CALL DISP 


009D 

B03A 



MOV AL,〆〆 


009F 

E 82300 

00C5 


CALL DISP 


00A2 

B 90600 


5 

MOV CX,6 


00A5 

8A4706 


し P3: 

MOV AL,6CBX： 

；Filename Display 

00A8 

E81A00 

00C5 


CALL DISP 


00AB 

43 



INC BX 


00AC 

E2F7 

00A5 


LOOP LP3 


00AE 

B02E 


； 

MOV AL/ / 


00B0 

E 81200 

00C5 


CALL DISP 


00B3 

B 90300 


； 

MOV CX,3 


00B6 

8A4706 


し P4: 

MOV AL,6[BX] 


00B9 

E 80900 

00C5 


CALL DISP 


00BC 

43 



INC BX 


00BD 

E2F7 

00B6 


LOOP LP4 
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DI,3DH 

0C4H 


00C5 BF3D00 DISP ： 

00C8 CDC4 
00CA C3 



KEYSEN ： 

XOR DL,DL 
PUSH AX 


KEY ： 

MOV AH,04H 
MOV AL,07H 
INT 18H 

TEST AH ， 04H 

00E0 


JNE UP 

TEST AH,20H 

00E4 


JNE DOUN 

00CE 


JMPS KEY 


UP ： 

POP AX 

POP AX 

007D 


JMPS PEND 


DOUN ： 

POP AX 

RET 


END 


00BF BF 4000 
00C2 CDC4 


CRLF: 


MOV DI,40H 
INT 0C4H 


00C4 C3 


BACK ： RET 


58 

58 

EB99 


00E4 58 
00E5 C3 


00CB 32D2 
00CD 50 
00CE B404 
00D0 B007 
00D2 CD18 
0004 F6C404 
00D7 7507 
0009 F6C420 
00DC 7506 
00DE EBEE 


5 CR/ し F INT CALL 


5 ONE CHR DISPLAY 

5 KEY SENSE 

i [CURSOR UP] 

; : CURSOR DOWN] 

；Dummy 
;STACK BACK 
；BACK TO BASIC 

5 Restore AX 
5 RET TO MAIN 


V T T 
ONE 
MIR 


0 12 
E E E 
0 0 0 
0 0 0 
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付 録 


付録一1マシン語プ□ブラム • ソース U スト 
付録 ROM 内ルーチンの丨 NT による利用 

(1) I NT 割り込みベクター覧表 

(2) I NT C 4 H のソフトウェアインターフェイスの説明 
(インタプ U 夕内のルーチンの利用） 

付録一3ワークエ U アー覧表 

(1) システム共通域 

(2) BAS I C L I 〇ワークエリア 

(3) シンボルテープルのワークエリア 

付録一4 l /〇ポートー覧表 
付録一5コマンド • ステートメント • 関数処理 
アドレスー覧表 

付録一6コント□ールコードー覧表 
付録一7エラーメッセージー覧表 
付録一8プリンタ機能一覧表 

( PC —8821/22- PC -8023 
• NK -3618-21/22) 

付録一9キャラクタコード表 

付録一10 US I NG 文フォーマットー覧表 

付録一11 Z — 80 • 8086ニーモニツク対應表 
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付録- 1 

マシン語プ□ク''ラム • ソース I 」スト 


付録 1 マシン語プログラム•ソースリスト 


本文中のマシン語のプログラムは解説のために ソースリス トもあわせて示しています 
が、ここでは、 BASIC の DATA 文中にあるマシン語プログラムの ソースリス トを掲載し 
ます。8086のアセンブリ言語でのプログラミングや PC -9801 の解析などの参考になれば 
幸いです。具体的な使い方•内容は、各章を参照して下さい。 

1 • テキスト画面の2ぺージ目を利用 

2. マシン語による G - VRAM 直接アクセス法 

3. ファンクションキー退避•復活 
4 . インターリーブ13フォーマット 
5. 8インチ ID リーダー 

6 • テキスト画面コピー 

7. グラフィック画面コピー 

8. PRINT/LPRINT ( CALL 文のルーチン） 

9. PRINT/LPRINT (CMD ON / OFF ) 

10. 漢字フォントをビットイメージで出力 
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1. テキスト画面の 2 ページ目を利用 


- 一 -= = = = = = = = = = = = = = = = = = = = = = = = = 

关 USE TUO TEXT VRAMS * 

关 Cal 1 ing sequence ••• ^ 

* DEF SEG=&H1F00 : VRAM=&H0 * 

* 似 =0:CALL VRAM(A^) Transfer * 

关 A%=ltCA しし VRAM(A%) ' Restore * 



VRAM1 

EQU 0A000H 


リ RAM2 

EQU 0A100H 


ATTR1 

EQU 0A200H 


ATTR2 

EQU 0A300H 


NUORD 

EQU 07FFH 


GETP: 

LES SI ， [BX] 

MOV AX,ES:[SI] 
CMP AX,0 

0010 


JE TRANS 

CMP AX,1 

0023 


JE RESTR 


BACK ： 

I RET 


TRANS ： 

MOV AX,VRAM1 
MOV BX,VRAM2 

0036 


CALL BLOCKT 

MOV AX,ATTR1 
MOV BX,ATTR2 

0036 


CALL BLOCKT 
IRET 


RESTR ： 

MOV AX,VRAM2 
MOV BX,VRAM1 

0036 


CALL BLOCKT 

MOV AX,ATTR2 
MOV BX,ATTR1 

0036 


CALL BLOCKT 



IRET 


BLOCKT: 

MOV DS,AX 

MOV ES,BX 

XOR SI,SI 

XOR DI,DI 

C し D 

MOV CX,NUORD 
REP MOVSU 

RET 


5 TEXT VRAM1 Segment 
;TEXT VRAM2 Segment 
；Attributel Segment 
5 Atrribute2 Segment 
； No.of Uords to1ransfer 

；Get parameter form 
5 BASIC CALL ' AX=A^ 

5 IF A°4=0 THEN TRANSFER 

5 IF A%=1 THEN RESTORE 

;IF NONE THEN BASIC 

;VRAM1—> VRAM2 

；BLOCK Transfer 
5 ATTR1 - 一〉 ATTR2 


；Back to BASIC 
； VRAM2——> VRAM1 


； ATTR2 --〉 ATTR1 


Back to BASIC 

Source Segment 
Destination Segment 
Source Offset 
Destination Offset 
Increment Mode 
No•of Uords 
Move String Ulord 


END 


C437 

268804 

3D0000 

7406 

300100 

7414 

CF 


0010 B800A0 
0013 BB00A1 
0016 E81D00 
0019 B800A2 
001C BB00A3 
001F E 81400 
0022 CF 

0023 B800A1 
0026 BB00A0 
0029 E80A00 
002C B800A3 
002F BB80A2 
0032 E 80100 
0035 CF 

0036 8ED8 
0038 8EC3 
003A 33F6 
003C 33FF 
003E FC 
003F B9FF07 
0042 F3A5 
0044 C3 


A000 

A100 

A200 

A300 

07FF 


0 2 5 8 A D F 
0 0 0 0 0 0 0 
0 0 0 0 0 0 0 
0 0 0 0 0 0 0 
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2. マシン語による G - VRAM 直接アクセス法 


0000 C 47704 
0003 268B04 

0006 8B37 
0008 268B1C 

000B 300000 
000E 7406 
0010 3D 0100 
0013 742D 

0015 CF 


0016 E8EF00 

0019 B00C 
001B E6A2 

001D B800A8 
0020 E 81100 
0023 B 80080 
0026 E80B00 
0029 B800B8 
002C E 80500 

002F B00D 
0031 E6A2 

0033 CF 




兴 High Speed and RANDOM (: し S 关 

* Calling sequence ••• * 

* DEF SEG=&H1F00 : HCLS=0 * 

* A •ィ =0:B%=0 z All c 1 ear 关 

* A>«=1 : B/*=l or 2 or 3 / Random clear * 

* CALL HCLS(A^,B^) * 



BLUE 

EQU 0A800H 




RED 

EQU 0B000H 




GREEN 

EQU 08800 H 




P0RT1 

EQU 0A0H 




P0RT2 

EQU 0A2H 




• 

CSEG 

ORG 0 




GPARA: 

LES SI,4[BX] 

• 

GET PARAMETERS 


•• 

MOV AX,ES:[SI] 

♦ 

AX=A2 


t 

# 

MOV SI,[BX] 

MOV BX,ES:[SI] 

# 

BX=B 欠 


COMP: 

CMP AX,0 

• 

MODE SELECT 

0016 


JE MODE0 

CMP AX,1 

♦ 

ALL CLEAR 

0042 

♦ 

JE M0DE1 

♦ 

RANDOM CLEAR 


t 

♦ 

I RET 

# 

BACK TO BASIC 

0108 

• 

MODE0 ： 

CALL WAIT 

• 

GDC CHECK 


OFF ： 

• 

MOV AL,0CH 

OUT P0RT2,AL 

• 

DISPLAY OFF 


ALL ： 

MOV AX,BLUE 

• 

CLEAR BLUE 

0034 


CALL CLS 

MOV AX,RED 


CLEAR RED 

0034 


CALL CLS 

MOV AX,GREEN 

t 

CLEAR GREEN 

0034 


CALL CLS 




ON ： 

• 

MOV AL,0DH 

OUT P0RT2,AL 

# 

DISPLAY ON 


BACK: 

I RET 

• 

BACK TO BASIC 


• 

CLS ： 

MOV CX,3FFFH 

MOV ES,AX 

MOV DI,0 

XOR AX,AX 

C し D 

• 

32K CLEAR 



REPNE STOSU 

RET 


RETURN TO ALL 


F 0 

3 0 

F 0 0 0 B 
F c 0 c A 
9 E F 3 c 2 3 
B 8 B 3 F F c 

4 7 9 c E F 1 
3 3 3 3 3 3 4 
0 0 0 0 0 0 0 
0 0 0 0 0 0 0 


0 00 0 2 
000 A A 
8 08 0 0 
A BB 0 0 
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8ED8 

33DB 

B9FF7C 

E 81200 

87CB 

E80D00 

87CB 

43 

43 

49 

49 

8AC5 

3C7F 

75EC 


B800A8 
E80D00 
B800B0 
E 80700 
B800B8 
E 80100 
CF 

B307 

E80B00 

B303 

E 80600 

B300 

E 80100 

C3 

8ED8 
33FF 
B 95000 
51 
57 

B 99001 

881D 

83C750 

E0F9 

5F 

83C701 

59 

E0ED 

C3 


0042 E8C300 
0045 83FB01 
0048 740B 
004A 83FB02 
004D 7444 
004F 83FB03 
0052 7473 

0054 CF 


0093 B800A8 
0096 E80D00 
0099 B800B0 
009C E 80700 
009F B800B8 
00A2 E 80100 
00A5 CF 


0108 

MODElJ 

CALL UAIT 

CMP BX,1 

0055 


JE CURT 

CMP BX,2 

0093 


JE SHUT 

CMP BX,3 

00C7 


JE BUB 



IRET 


CURT: 

MOV AX,BLUE 

0068 


CALL CTSUB 
MOV AX,RED 

0068 


CALL CTSUB 
MOV AX,GREEN 

0068 


CALL CTSUB 
IRET 


CTSUB: 

MOV BL，7 

0078 


CALL CTSUB1 
MOV BL，3 

0078 


CALL CTSUB1 
MOV BL,0 

0078 


CALL CTSUB1 
RET 


CTSUB1 ： 

3X3 

o o o 

CXIC 

o o o 

X ㈠ CO 

o > 

S) X 
ェ 


L80 ： 

PUSH CX 

PUSH DI 

MOV CX,190H 


し 400: 

MOV [DI],BI- 
ADD DI,50H 

0084 


LOOPNE L400 
POP DI 

ADD DI,1H 

POP CX 

007F 


LOOPNE L80 
RET 


SHUT ： 

MOV AX,BLUE 

00A6 


CALL SSUB1 

MO リ AX,RED 

00A6 


CALL SSUB1 
MOV AX,GREEN 

00A6 


CALL SSUB1 
IRET 


SSUB1 ： 

MOV DS,AX 

XOR BX,BX 

MOV CX,7CFFH 

00C2 

NDONE ： 

CALL SSUB2 
XCHG CX,BX 

00C2 


CALL SSUB2 
XCHG CX,BX 
INC BX 

INC BX 

DEC CX 

DEC CX 

MOV AL,CH 

CMP AL,7FH 

00AD 


JNE NDONE 


RANDOM CLEAR 
CURTAIN CLEAR 

SHUTTLE CLEAR 

BUBBLE CLEAR 

IF NONE THEN RETURN 

CURTAIN CLEAR 


5 RETURN TO BASIC 
;CURT SUB 


;RETURN TO CURT 
5 CURT SUB1 

5 80 LINES 
5 400 DOTS 


;RETURN TO CTSUB 
；SHUTTLE CLEAR 

5 RETURN TO BASIC 
5 SHUT SUB1 


68AD 025789 A BDF 
A AAABBBBBBB BBB 
00000000000 000 
0 0 0 0 0 0 0 0 00 0 0 0 0 


58BE1478ADF2478ACF 01469 BCF02 
5555666666677777778888888899 
0000000 000000000000000000000 
0000000000000000000000000000 
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E4A0 

A820 

74FA 

E4A0 

A808 

75FA 


00C7 B9F51E 
00CA B800A8 
00CD E 80000 
00D0 B800B0 
00D3 E 80700 
00D6 B800B8 
00D9 E 80100 
00DC CF 

00DD 8ED8 
00DF 33DB 
00E1 33D2 
00E3 51 
00E4 D0FD 
00E6 D0D9 
00E8 7207 
00EA D0EE 
00EC D0DA 
00EE E9F3FF 
00F159 
00F2 52 
00F3 8AC7 
00F5 0C00 
00F7 8AF8 
00F9 C 6470100 
00FD 03D9 
00FF 5A 
0100 4A 
0101 8AC6 
0103 0AC2 
0105 75EB 
0107 C3 


0108 E4A0 
010A A804 
010C 74FA 


03 

C 6470100 
C3 


011A C3 


RET 

SSUB2 ： MOV BYTE [BX],0 
RET 

♦ 

BUB ： MOV CX,7925 
MOV AX,BLUE 

00DD CALL BUB1 

MOV AX,RED 

00DD CALL BUB1 

MOV AX,GREEN 
00DD CALL BUB1 

I RET 

BUB1 ： MOV DS,AX 

XOR BX,BX 
XOR DX,DX 
PUSH CX 

SHIFT: SAR CH,1 

RCR CL,1 
00F1 JB BELOW 

SHR DH,1 
RCR DL,1 

00E4 JMP SHIFT 

BELOU: POP CX 

CONT ： PUSH DX 

MOV AL,BH 
OR AL,00 
MOV BH,AL 
MOV BYTE [BX],0 
ADD BX,CX 
POP DX 
DEC DX 
MOV AL,DH 
OR AL,DL 
00F2 JNE CONT 

RET 


RETURN TO SHUT 
SHUT SUB2 
RETURN TO SSUB1 

CX = PATTERN 


RETURN TO BASIC 


RETURN TO BUB 


GDC STATUS CHECK 


WAIT: 

EMPTY: 


0108 


VSYNC: 


010E 


IN AL,P0RT1 
TEST AL,04H 
JZ EMPTY 

IN AL,P0RT1 
TEST AL,20H 
JZ VSYNC 


FIFO EMPTY CHECK 


VSYNC CHECK 


NDRAU : 


0114 


IN A し， P0RT1 
TEST AL,08H 
JNZ NDRAU 

RET 

END 


E 02 
0 1-1 
111 
0 0 0 


4 6 8 

1A 1* IX 
1_ IX 
0 0 0 


12 6 
c c c 
0 0 0 
0 0 0 
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3. ファンクションキー退避•復活 


Function Key i>a^e & Restrore 
balling sequence.•• 

DEF SEG=&H1F00 
FK=0 

AV o =0：CALL FK(A°4) / Save 
A^=l : CALL FK(A^) Restore 


1F00 


CSEG 1F00H 


0378 

005A 

FUNCKY 
し EN 

EQU 0378H 

EQU 90 

；180 bytes=90 words 



ORG 0000H 


0000 C537 

0002 8B04 

CALL ： 

LDS SI,[BX] 
MOV AX,[SI] 

； AX=A°4 

0004 16 

0005 5B 

0006 0E 

0007 59 

0008 0E 

0009 IF 

000A BE7803 
000D BF2300 


PUSH SS 

POP BX 

PUSH CS 

POP CX 

PUSH CS 

POP DS 

MOV SI,FUNCKY 
MOV DI,OFFSET 

5 BX=60H 

5 CX=1F00H 

； DS=1F00H 

FKBUF 

0010 0BC0 

0012 7404 

0014 87D9 

0016 87F7 

0018 

RESTR: 

OR AX,AX 

JZ SAVE 

XCHG BX,CX 
XCHG SI,DI 

5 IF AX=0 THEN SAVE 

0018 8EDB 

001A 8EC1 

001C FC 

001D B95A00 
0020 F3A5 

0022 CF 

SAVE ： 

MOV DS,BX 

MOV ES,CX 

C し D 

MOV CX,LEN 

REP MOV/SU 

IRET 

；Word ransfer 
；Back to BASIC 

0023 

FKBUF 

RU 90 

；Key Buffer 


； 

END 
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4. インターリーブ 13 フォーマット 


1000 


0000 8B4F0A 
0003 8EC1 
0005 8B7708 
0008 268A24 

000B 8B4F06 
000E 8EC1 
0010 887704 
0013 268A34 

0016 8B4F02 
0019 8EC1 
001B 8B37 
001D 268A14 

0020 53 
0021 8ADC 
0023 0E 
0024 07 
0025 BD6800 

0028 B91A00 
002B 8BF5 

002D 26881C 
0030 26887401 
0034 26885403 
0038 83C604 
003B E0F0 

003D 8AC2 
003F 0AC0 
00417505 
0043 B 891 ID 
0046 EB03 
0048 B 8915 D 

004B 8ACB 
004D 8AEA 
004F BB6800 
0052 B240 

0054 CD1B 

0056 5B 
0057 7203 
0059 B 80000 
005C 8B4F0E 
005F 8EC1 


Interleave 13 Formatting 
CALL F0RM13(STS,CYL,SF,SECLEN) 

SECLEN=0 OR 1(0:128 BYTE,1:256 BYTE) 


CSEG 1D00H 
ORG 0 


F0RM13 ： MOV CX,10[BX] 

MOV ES,CX 
MOV SI,8[BX] 

MO リ AH,ES:[SI] 

# 

MOV CX,6[BX] 

MOV ES,CX 
MOV SI,4[BX] 

MOV DH,ES:[SI] 

♦ 

MOV CX,2[BX] 
m\J ES,CX 
MOV SI,0[BX] 

MOV DL,ES:[SI] 

PUSH BX ； SAVE BX TO RETURN PARA 

MOV BL,AH 
PUSH CS 

POP ES ； ES く =CS 

MO リ BP,OFFSET DTBUF 

;BL=CYLINDER,DH=SURFACE,DL=SECTOR LENGTH 
TABLM ： MOV CX,26 
MOV SI,BP 


TABLM1: MO リ ES:[SI],BL 
MOV ES:1[SI],DH 
MOV ES:3[SI]，DL 
ADD SI,4 

002D LOOPNZ TABLM1 


MOV AL,DL 
OR AL,AL 

0048 JNE TYPE_D 

MOV AX,1D91H 

004B JMPS BIOSUB 

TYPEJD: MOV AX,5D91H 
♦ 

BIOSUB ： MOV CL，BL 
MO リ CH,DL 
MOV BX,104 
MOV DL,40H 


;SINGLE TYPE,DRIVE 2 
;DOUBLE TYPE,DRIVE 2 

5 40H= / @ / 


INT 1BH 

• 

POP BX ； RESTORE BX 

005C JC ERROR 

MOV AX,0 

ERRORS MOV CX,14[BX] 

MOV ES,CX 
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MOV SI,12[BX] 

MOV ES: ： SI：,AX 

IRET ； BACK TO BASIC 


0061 

8B770C 


0064 

268904 


0067 

CF 

BACK ： 

0068 

00000100 

DTBUF 

006C 

00000 E00 


0070 

00000200 


0074 

00000 F00 


0078 

00000300 


007C 

00001000 


0080 

00000400 


0084 

00001100 


0088 

00000500 


008C 

00001200 


0090 

00000600 


0094 

00001300 


0098 

00000700 


009C 

00001400 


00A0 

00000800 


00A4 

00001500 


00A8 

00000900 


00AC 

00001600 


00B0 

00000 A00 


00B4 

00001700 


00B8 

00000 B00 


00BC 

00001800 


00C0 

00000 C00 


00C4 

00001900 


00C8 

00000000 


00CC 

0000 1A00 



QD CS CS CS CD Qv CS CD QD CP CS CS CS GD CS CD CS CSJ CS CO CD CSD CD CD 

HHHHHHHHHHHHHHHHHHHHHHHHHH 
1E2F 30415263748596 A7B8C9DA 

0 0 0 CS 1 0 0 0 1 0 1 0 1 0 1 0 CS 0 1 0 ▼H 
Qw ¢3 CD 0 Q5 CO CO CD CO CD Q5 <S 0 QD GD CS5 CS QJ 0 CD CD CS CD 
CD 0 CD QJ 0 03 CS CS? cs^ 0 0 QJ 0 CS CS CD 0 0 ¢3 CS CD CS 

D 

BBBBBBBBBBBBBBBBBBBBBBBBBB N 
DDDDDDDDDDDDDDDDDDDDDDDDDD E 
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33DB 

32ED 

32D2 

RTY ： 


0018 89870001 
001C 899F0201 
0020 898F0401 
0024 89970601 
0028 CD1B 

002A 7336 0062 


0031 F6C4C0 

0034 7516 004C 

0036 F6C460 

0039 7500 003B 


003B 89870001 RET1: 

003F 899F0201 
0043 898F0401 
0047 89970601 
004B CF 


AH,0C0H 

RTV2 

AH,060H 

RET1 

AH,040H 

RET1 

0100H[BX],AX 
0102H[BX],BX 
0104 H[BX],CX 
0106H[BX],DX 


branch if No Data 
branch if Not Ready 
branch if Equip• check 

return to BASIC 


BX,BX 

CH,CH 

DL,DL 

0100H[BX],AX 

0102 H[BX],BX 

0104H[BX],CX 

0106H[BX],DX 

1BH 

OKI 


clear B Reg♦ 

C Reg. 

D Reg. 

save A Reg. 

B Reg ♦ 

C Reg. 

D Reg ♦ 
call BIOS 
branch if norma 1 


268A0C 

MOV 

CL,ES:[SI] 

C437 

LES 

SI ,00[BX] 

268A34 

MOV 

DH,ES ： CSI ： 

8CC8 

MOV 

AX,CS 

8ED8 

MOV 

DS,AX 


get cy1inder adr♦ 
get head adr♦ 


002C F6C4E0 
002F 751B 


004C 


TEST 

JNZ 


AH,0E0H 

RTY1 


branch if Missing Data 


000F B8915A 

MOV 

AX,5A91H 

；set BIOS ID 




； & device/unit adr♦ 


5. 8 インチ ID リーダー 
①セクタリード 


关关关关关关关关关关关关关关关关关关关关关关关 * 关 * 关关关关关关关关关*关关关关 


关 

READ ID for 8 - FD 

关 


CALLING SEQUENCE 

关 


CLEAR ， & H1A00：DEF SEG=&H1A00 

关 

关 

C し =cylinder address 

关 

关 

H =head address 

关 

关 

READID=0：CALL READID(CC,H) 

关 


RETURN INFORMATION 

关 

关 

from &H1A10 (AX, BX, CX, DX, 

关 

关 

BIOS RETURN CODE 


关 

AH i STATUS 

关 

关 

CH : SL(0,1,2,3) 

关 

关 

C し ： CC 

关 

关 

DH S H 

关 

关 

DL ： RR 

兴 


关关关关关关关关关关关关关关 * 关*关关关关关关关关关关兴关关关关关关关关关关关关 


READID ： 

0000 C 47704 LES SI,04[BX] 


2 4 6 
11 1 * 
0 0 0 
0 0 0 


I— I— I — I— 

SZS2SZUVVVVE 

ENENENOOOOR 

TJTJTJMMMMI 


R R R 
〇 〇 〇 
XXX 


V uv uv uv T B 

〇 〇 〇 〇 N N 
M M M M I J 


3 6 8 B D 
0 0 0 0 0 
0 0 0 0 0 
0 0 0 0 0 
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RTY1: 

RTY2 ： 


；execute when normal 


0066 878F0401 
006A 87970601 
006E 83C308 
0071 81FBD000 
0075 7DC4 003B 

0077 E99EFF 0018 


8 インチ ID リー ター 
②トラックリード 


0104H[BX],CX 

0106 H[BX]，DX 

BX ， 08H 

BX,208 

RET1 

RTY 


recover CX 
DX 

add entry size 

branch if over 
try next sector 


关关关关**关关*矢****矢***关关关关**关关关关关*关矢关关关关关关*关 

* READ ID for 8" FD * 

* CALLING SEQUENCE * 

* CLEAR ， & H1A00:DEF SEG=&H1A00 * 

* 关 

关 矢 

^ READID=0:CALL READID * 

* RETURN INFORMATION * 



;* 

from 

&H1A10 (AX,BX,CX,DX , …） 

关 


;* 

BIOS 

RETURN CODE 


关 


；¥： 


AH : STATUS 


关 


；¥： 


CH : SL(0,1,2,3) 


关 


；* 


C し : CC 


关 


; 关 


DH •• H 


* 


；* 


D し : RR 


关 


• 关矢****关关*关关关关关关关关关关*关*关关*关关关关关*关关关关**关关关 

8CC8 

READID: 

MOV 

AX,CS 5 



8ED8 


MOV 

DS,AX ; 

set data 

segment 

B8915A 


MOV 

AX,5A91H ; 

set BIOS 

ID 




l 

& device/unit 

33DB 


XOR 

BX,BX ; 

c1 ear B 1 

Reg * 


004C 86A 70101 


0050 878F0401 
0054 87970601 
0058 80FC1A 
005B 74DE 003B 

005D B41A 

005F E9B6FF 0018 


0062 8AA 70101 


XCHG AH,0101H[BX] 


XCHG 0104H[BX],CX 

XCHG 0106H[BX],DX 

CMP AH,1AH 

JE RET1 

MOV AH,1AH 

JMP RTY 


MOV AH, 0101 H[BX] 


5 recover AH 

CX 

DX 

return if double 
change double 
and retry it 
execute when normal 
set single density 


G G 


D p E p D 
c c D M G M N 
X X A c J J E 
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F6C4C0 

7516 0041 

F6C460 

7500 0030 


89870001 RET1: 

899F0201 

898F0401 

89970601 

CF 


DH,01H 

RTY 

DH,DH 

CL,01H 


branch if overf1ou 
set Head address = 
add 1 to cy1inder 


878F0401 

87970601 

83C308 

80C601 


XCHG 0104H[BX],CX 
XCHG 0106H[BX],DX 
ADD BX,08H 
ADD DH,01H 


recover CX 
DX 

BX = BX + 8 
count up Head adr. 


AH,0C0H 

RTY2 

AH,060H 

RET1 

AH,040H 

RET1 

0100H[BX],AX 

0102H[BX],BX 

0104H[BX],CX 

0106H[BX],DX 


Address mark 
branch if No Data 
branch if Not Ready 
branch if Equip. Check 

return to BASIC 


0067 80FE01 
006A 74A1 000D 

006C 32F6 
006E 80C101 


CX，CX 

DX，DX 

0100H[BX],AX 
0102 H[BX],BX 
0104 H[BX],CX 
0106 H[BX],DX 
1BH 
OKI 


C Reg. 

D Reg. 

save A Reg. 

B Reg ♦ 

C Reg. 

D Reg ♦ 
cal1 BIOS 
branch if norma 


0009 33C9 
000B 33D2 

RTY: 

000D 89870001 
0011 899F0201 
0015 898F0401 
0019 89970601 
001D CD1B 

001F 7336 0057 


try next *jruck 


0076 E994FF 000D 


0071 

80F94D 


CMP 

CL,4DH 

♦ 

0074 

7DBA 

0030 

JGE 

RET1 

; branch if over 


RTY1 ： 

RTY2 ： 

004186A 70101 
0045 878F0401 
0049 87970601 
004D 80FC1A 
0050 74DE 0030 
0052 B41A 

0054 E9B6FF 000D 

OKI: 

0057 B45A 


XCHG AH,0101H[BX] 
XCHG 0104 H[BX],CX 
XCHG 0106H[BX],DX 
CMP AH,1AH 
JE RET1 
MOV AH.1AH 

JMP RTY 


MOV AH,5AH 


execute when MA or ND 
recover AH 
CX 
DX 

return if double 
chenge double 

and retry it 

execute when normal 

set single density 


0021 F6C4E0 
0024 751B 


0041 


TEST AH,0E0H 
JNZ RTY1 


branch if Missing 


26 


9 B E 
2 2 2 
0 0 0 
0 0 0 


0 4 8 c 0 
3 3 3 3 4 
0 0 0 0 0 
0 0 0 0 0 


p R D 
M E o D 
c J X A 


9 D 14 
5 5 6 6 
0 0 0 0 
0 0 0 0 


I — I — T I — 
SZSZSZUVUVUVVE 
ENENENOOOOR 
TJTJTJMMMMI 


R R V V MV uv T B 

o o 0000 NN 
XX MMMMIJ 


Y 

T 

R 


p D 
JMEN 
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6. テキスト画面コピー 


8038 


I NLP ： 

LEA DI,[BX+SI] 

5 DI=EFFECTIVE ADD 

8A05 



MOV AL,[DI] 



3C1F 



CMP AL，31 



7702 

0026 


JA NEXT 



7A04 

002A 


JP M リ AL 



3CF8 


NEXT: 

CMP AL,248 



7202 

002C 


JB LPT 

;LPRINT 

CHR$(A し ) 

B020 


MVAL: 

MOV AL, … 

；LPRINT 

SPACE 

E80F00 

003E 

LPT: 

CALL LPRINT 



46 



INC SI 



46 



INC SI 



81FEA000 



CMP 81,160 

；END ? 


75E5 

001C 


JNE INLP 




56 

LPRINT ： PUSH SI 


B411 

MOV AH ， 11H 

5 LPRINT SUB 

CD1A 

INT 1AH 


5E 

POP si 


C3 

RET 

# 

5 RETURN TO MAIN 


END 


0037 5B 

♦ 

赘 

POP BX 

;RESTORE LINE CONTER 

0038 43 


INC BX 


0039 3BD9 


CMP BX,CX 

；END OF LINE ? 

003B 7503 

0010 

JNE OUTLP 


003D CF 

； 

I RET 

;RETURN TO BASIC 


；兴关关关关关关关关关关兴关关*矢***关关关关关关 

;* TEXT COPY ROUTINE 
;* CALL JX1(S°/o 9 EZ) 

: 关关关关关关*关关*关关关关关关关关关关关*关关关 


0000 C437 
0002 26880 C 


GETP ： LES SI,00H[BX] 
MOV CX,ES:[SI] 


CX=E°/ 0 


0005 C 47704 
0008 268B1C 


000B 

000E 

0010 

0011 

0013 

0015 

0018 

001A 


B800A0 

8ED8 

53 

33F6 

8BC3 

BAA000 

F7E2 

8BD8 


LES SI,04H[BX] 

MOV BX,ES:[SI] 5 BX=S° イ 


PREP: MOV AX,0A000H 

MOV DS,AX 
OUTLP ： PUSH BX 


XOR 
MOV ； 
MOV 
MU し 


SI,SI 
AX,BX 
DX,160 
DX 

BX,AX 


5 TEXT SEGMENT 

;SAVE START 
;SI=0 ONE LINE (0-159) 

;160 BYTES SKIP 
5 AX=AX^160 


し E 02468 A c F 0 1 5 
1122222 222333 

D000000 000000 


E F 13 4 
3 3 4 4 4 
0 0 0 0 0 
0 0 0 0 0 
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002A 

BBC700 



MOV BX,199 

5 Y LOOP 0 - 199 

002D 

BE 6001 


YLOOP ： 

MOV SI,OFFSET DATA 

0030 

33C0 



XOR AX,AX 


0032 

B 90200 



MOV CX,02H 

5 し 0 OP 2 TIMES 

0035 

8904 


CLEAR: 

MOV [SI],AX 

5 CLEAR PRINT BUF 

0037 

46 



INC SI 


0038 

46 



INC SI 


0039 

E2FA 

0035 


LOOP CLEAR 


003B 

BD0100 



MOV BP,1 

5 BIT ADD 

003E 

B 90800 


ADD ： 

MOV CX,08H 

；LOOP 8 TIMES 

0041 

33FF 



XOR DI,DI 

； DI=0 

0043 

891EC400 


\ 

MOV PARAY,BX 

5 PARA Y=BX 

0047 

53 



PUSH BX 

5 Y=BX SAVE 

0048 

52 



PUSH DX 

； X=DX SAVE 

0049 

B 80800 



MOV AX,8 

； X=X*8 

004C 

F7E2 



MU し DX 

;AX=DX ： AX*DX 

004E 

8BD8 



MOV BX,AX 


0050 

8D01 


し P: 

LEA AX,[BX+DI] 

;AX=X=BX+DI=X*8+DI 

0052 

A3C200 



MOV PARAX,AX 

；STORE X PARA 

0055 

E84A00 

00A2 


CALL LIO 

； G-LIO POINT 

0058 

D0F8 



SAR AL,1 

5 AL=COLOR CODE 0-7 

005A 

3C03 



CMP AL，3 

； A し =A し / 2 CODE 0-3 

005C 

7410 

006E 


JE L5200 


005E 

3C00 



CMP AL,0 


0060 

7502 

0064 


JNE NEXT 


0062 

B003 



MOV AL,3 



33D2 XOR DX,DX ; X LOOP COUNTER 0 

BBBA00 XLOOP ： MOV BX,ES：OFFSET BIT 

B 90600 MOV CX,06H 

E 87300 009D CALL LPRINT : ESC ； "S0800" 


; 关关关关关关关关关关关关**关关关 

;关 COPY GRAPHICS * 
SC200.A86 ^ 

640 X 200 MODE* 

;关关关关关关关关关*关关关关关*关 


START: PUSH 

DS 

5 SEG REG INIT 

PUSH 

CS 


PUSH 

CS 


POP 

DS 


POP 

ES 



MOV BX,ES：OFFSET PRINTI 
MOV CX.0AH 

CALL LPRINT ; ESC;_M_,_,_T16 


0005 BBB000 
0008 B90A00 
000B E88F00 

000E 8C16C600 
0012 8926C800 
0016 8CD8 
0018 8ED0 
001A BC4A01 
001D CDA0 


PINIT: 

009D 

# 

SSAVE: 


MOV SSS,SS 
MOV SPS,SP 
MOV AX,DS 
MOV SS,AX 
MOV SP,OFFSET 
INT 0A0H 


；STACK SAVE 


;SET USER STACK 
STACK 

； G-LIO INIT 


7. クラフィック画面コピー 

①カラー対応画面コピー （640 X 200 モード) 


F 14 7 
12 2 2 
0 0 0 0 
0 0 0 0 


E E E F 7 

1-Qv QV 1 0 

0 12 3 4 

0 ¢33 0 0 0 
0 CQ 0 0 0 
0 0 0 0 0 
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BE6001 


NEXT ： 

MOV SI,OFFSET 

DATA 

012C 


DADD: 

ADD [SI],BP 

5 STORE BIT IMAGE DATA 

46 



INC SI 


FEC8 



DEC AL 


75F9 

0067 


JNZ DADD 


03ED 


L5200 ： 

ADD BP,BP 

;BIT IMAGE ADD 

47 



INC DI 


E2DD 

0050 


LOOP LP 


BB6001 


5 

MOV BX,OFFSET 

DATA 

B 90400 



MOV CX,04H 

5 LPRINT B-IMAGE DATA 

E 82100 

009D 


CALL LPRINT 



00A2 53 
00A3 51 
00A4 57 
00A5 55 

00A6 BBC200 
00A9 CDAF 


B430 

CD1A 

C3 


SUBROUTINES FOLLOW ... 


LPRINT ： MOV AH,30H 
INT 1AH 
RET 


RETURN TO MAIN 


GRAPHIC LIO POINT 


LIO: PUSH BX 

PUSH CX 
PUSH DI 
PUSH BP 

♦ 

POINT ： MOV BX,OFFSET 
INT 0AFH 

POP BP 
POP DI 
POP CX 
POP BX 
RET 


;SAVE MAIN REGS 

5 AL=COLOR CODE 0-7 
5 RESTORE COUNTERS 

:RETURN TO MAIN 


007C 

007D 

007E 

007F 

5A 

5B 

4B 

83FBFF 


♦ 

， 

POP DX 

POP BX 

DEC BX 

CMP BX,0FFFFH 

5 RESTORE X 
；RESTORE Y 
； Y=Y-1 

；Y LOOP UNTIL BX=0 

0082 

75A9 

002D 


JNE YLOOP 


0084 

0087 

008A 

BBC000 

B 90200 

E 81000 

009D 

PCRLF ： 

MOV BX,OFFSET 
MOV CX,02H 
CALL LPRINT 

CRLF 

;LPRINT 2 CHARA 

008D 

008E 

0091 

42 

83FA50 

758E 

0021 


INC DX 

CMP DX,80 

JNE XLOOP 

5 X=X+1 

;IF X=80 THEN RES 

0093 

0097 

009B 

009C 

8E16C600 

8B26C800 

IF 

CF 


RES ： 

MOV SS,SSS 

MOV SP,SPS 

POP DS 

I RET 

5 RESTORE SS AND SP 

5 DATA SEG 
；BACK TO BASIC 


479ACE01 369 
66666677 777 
0 0000000 0 0 0 
00000000 000 


D F 9 B 3 
5 5 5 5c 

B c D E F 
A A A A A 
0 0 0 0 0 
0 0 0 0 0 


D F 1 
9 9 A 
0 0 0 
0 0 0 


393 









关关关关关关关关关 关关关 关关关 兴关关 关**关关关关关兴关关* 

EXTRA SEGMENT 

关关关关关关关关关关关兴关关关兴关关关关关*关关关关关关关关 


00B0 


00B0 1B4D1B3E1B54 
31360 D0A 

00BA 1B 5330383030 
00C0 0D0A 


00C2 


00C2 

00C4 

00C6 

00C8 

00CA 

014A 

0160 

0162 


0620 


DA EQU OFFSET $ 

ESEG 
ORG DA 

PRINTI DB 1BH, / MMBH/>MBH, / T16 / ,0DH,0AH 


BIT DB 1BH, / S0800 / 

CRLF DB 0DH,0AH 

♦ 

» 

;+++++++++++++++++++++++++++++ 
；DATA SEGMENT 

;+++++++++++++++++++++++++++++ 


DATAS 

♦ 

EQU OFFSET $ 
DSEG 

ORG DATAS 


PARAX 

RU 1 

；STORE X 

PARAY 

• 

RW 1 

；STORE Y 

sss 

RU 1 

；STORE SS 

SPS 

• 

RU 1 

；STORE SP 

t 

RB 128 

；STACK FOR LIO 

STACK 

# 

RB 16H 

；USER STACK 

DATA 

RW 1 

5 STORE BIT IMAGE DATA 

t 

RU 1 


• 

參 

ORG 620H 

RB 0DE0H 

；LIO UORK AREA 


END 
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グラフィック画面コピー 
②カラー対応画面コピー （640 X 400 モード) 



MOV PARAY,BX 

;PARA Y=BX 


PUSH BX 

5 Y=BX SAVE 


PUSH DX 

； X=DX SAVE 


MOV AX,8 

； X=X 关 8 


MU し DX 

MOV BX,AX 

5 AX=DX ： AX*DX 

し p : 

LEA AX,[BX+DI] 

； AX=X=BX+DI=X*8+DI 


MOV PARAX,AX 

5 STORE X PARA 

00A7 

CALL LIO 

5 G - LIO POINT 


SAR AL,1 

CMP AL,3 

5 AL=COLOR CODE/2 

0073 

JE L5200 

CMP AL,0 



；关关关兴兴关关关关关关关关关矢 ** 

;* COPY GRAPHICS * 

;关 SC400.A86 ^ 

;*640 x 400 MODE ^ 

；关关兴兴关*关关关关关关关关关关关 

参 

START ： PUSH DS 5 SEG REG INIT 

PUSH CS 
PUSH CS 
POP DS 
POP ES 


0005 

BBB500 


PINIT ： 

MOV 

BX,ESsOFFSET PRINTI 

0008 

B90F00 



MOV 

CX,0FH 


000B 

E 89400 

00A2 


CALL LPRINT 

； ESC;'QVMV>VT16 

000E 

8C16D400 


SSAVE ； 

MOV 

SSS,SS 

;STACK SAVE 

0012 

89260600 



MOV 

SPS,SP 


0016 

8CD8 



MOV 

AX,DS 


0018 

8ED0 



MOV 

SS,AX 

；SET USER STACK 

001A 

BC5801 



M0 リ 

SP,OFFSET 

STACK 

001D 

CDA0 



I NT 

0A0H 

； G-LIO INIT 

001F 

BBCC00 



MOV 

BX,OFFSET 

SCREEN 

0022 

CDA1 



I NT 

0A1H 


0024 

33D2 


； 

XOR 

DX，DX 

；X LOOP COUNTER 0 

0026 

BBC400 


X し 00 P: 

MOV 

BX,ES：OFFSET BIT 

0029 

B 90600 



MOV 

CX,06H 


002C 

E 87300 

00A2 


CALL LPRINT 

;ESC;_S1600. 

002F 

BB8F01 


; 

MOV 

BX,399 

；Y LOOP 0 - 399 

0032 

BE6E01 


YLOOP ： 

MOV 

SI,OFFSET 

DATA 

0035 

33C0 



XOR 

AX, AX 


0037 

B 90200 



MOV 

CX,2 

5 LOOP 2 TIMES 

003A 

8904 


CLEAR: 

MOV 

[SI],AX 

5 CLEAR PRINT BUF 

003C 

46 



INC 

SI 


003D 

46 



INC 

SI 


003E 

E2FA 

003A 


LOOP CLEAR 


0040 

BD0100 



MOV 

BP,1 

；BIT ADD 

0043 

B 90800 


ADD: 

MOV 

CX,08H 

； し 0 OP 8 TIMES 

0046 

33FF 



XOR 

DI,DI 

； DI=0 


0 0 
0 0 

E 82810 A 8300 
1 0ED0D4F010 
93287 BD380C4C 
855BF88AED373 

8CDE1357ADF13 
4444555555566 
0 0 0 0 0 0 0 0 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 0 0 0 


0 

2 

D 


E E E F 7 

rH 0 co1 0 

0 12 3 4 
0 0 0 0 0 
0 0 0 0 0 
0 0 0 0 0 
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AH,30H 

1AH 

：RETURN TO MAIN 


00A2 B430 LPRINT: 

00A4 CD1A 
00A6 C3 


5 RESTORE 
;RESTORE 
: Y=Y-1 


BBCA00 

PCRLF ： 

MOV BX,OFFSET 

CRLF 


B 90200 

E 81000 

00A2 

MOV CX,02H 
CALL LPRINT 

5 し PRINT 

2 CHARA 

42 

； 

INC DX 

； X=X+1 


83FA50 

758E 

0026 

CMP DX,80 

JNE XLOOP 

；IF X=80 

THEN RES 


;REPEAT UNTIL Y=0 


0081 

5A 


POP 

DX 

0082 

5B 


POP 

BX 

0083 

4B 


DEC 

BX 

0084 

83FBFF 


CMP 

BX,0FFFFH 

0087 

75A9 

0032 

JNE 

YLOOP 


BB6E01 
B 90400 
E 82100 


00A2 


MOV BX,OFFSET DATA 

MOV CX,04H ; し PRINT B — IMAGE DATA 

CALL LPRINT 


0098 8E16D400 
009C 8B 260600 
00A0 IF 
00A1 CF 


RES ： 


MOV SS，SSS 
MOV SP,SPS 
POP DS 
IRET 


RESTORE SS AND SP 

DATA SEG 
BACK TO BASIC 


SUBROUTINES FOLLOW 


0065 

7502 

0069 


JNE 

NEXT 

0067 

B003 



MOV 

AL,3 

0069 

BE6E01 


NEXT: 

MOV 

SI,OFFSET DATA 

006C 

012C 


DADD ： 

ADD 

匸 SI],BP ; STORE BIT IMAGE DATA 

006E 

46 



INC 

SI 

006F 

FEC8 



DEC 

A し 

0071 

75F9 

006C 


JNZ 

DADD 

0073 

03ED 


L5200: 

ADD 

BP, BP 

0075 

47 



INC 

DI 

0076 

E2DD 

0055 


LOOP LP 


00A7 53 
00A8 51 
00A9 57 
00AA 55 

00AB BBD000 
00AE CDAF 

00B0 5D 
00B15F 
00B2 59 
00B3 5B 
00B4 C3 


GRAPHIC LIO POINT 


SAVE MAIN REGS 


LIO ： PUSH BX 
PUSH CX 
PUSH DI 
PUSH BP 


POINT: MOV BX,OFFSET PARAX 

INT 0AFH ； AL=COLOR CODE 0 - 7 


POP BP 
POP DI 
POP CX 
POP BX 
RET 


RESTORE COUNTERS 


RETURN TO MAIN 


uv T T 
ONE 
MIR 


X Y 


898C8F 


2 3 6 
9 9 9 

0 0 0 0 0 0 
0 0 0 0 0 0 


8 B E 
7 7 7 
0 0 0 
0 0 0 
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兴关关关兴兴关关关关关*关关关兴关关兴关兴关关关关关关关关兴 

EXTRA SEGMENT 

兴关关关关关关关关关兴关关*兴关兴兴关关关兴关关 关关关 兴关关 


♦ 

PARAX RU 1 5 STORE 

PARAY RU 1 ； STORE 


; STORE SS 
;STORE SP 


RB 128 

STACK RB 16H 
# 

DATA RU 1 


PRINTI DB 1BH/QS0DH 
DB 1BH/M 7 ,0DH 
DB lBhU'/JDH 
DB 1BH/T16 , t 0DH,0AH 

• 

BIT DB 1BH/S1600' 

CRLF DB 0DH,0AH 

ORG 620H ； LIO UORK AREA 

RB 0DE0H 

END 


;STACK FOR LIO 
;USER STACK 

;STORE BIT IMAGE DATA 


1B510D 

1B4D0D 

1B3E0D 

IB 5431360 D0A 


00B5 


00CC 


00CC 03000001 


A EQU OFFSET $ 

ESE6 
ORG DA 

+++++++++++++++++++++++++++++ 
DATA SEGMENT 

+++++++++++++++++++++++++++++ 


DATAS EQU OFFSET $ 

DSEG 

ORG DATAS 

SCREEN DB 03H,00H,00H,01H 


SCREEN 3,0, 0，1 


00D0 

00D2 

00D4 

00D6 

00D8 

0158 

016E 


00C4 IB 5331363030 
00CA 0D0A 

0620 


X Y 


RURU 


s s 
s p 
,s s 


5 8 B E 
B B B B 
0 0 0 0 
0 0 0 0 
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8. PRINT/LPRINT (CALL 文のルーチン ) 


3D0000 

7406 

3D0100 

741A 

CF 


PL: 


0026 

003F 


CMP AX,0 
JE PRINT 
CMP AX,i 
JE LPRINT 
IRET 


IF AX=0 THEN PRINT 
IF AX=1 THEN LPRINT 
IF AXOl OR 0 THEN BACK 


0000 C437 
0002 268B0C 

0005 80FD00 
0008 7405 
000A 32ED 
000C BA6000 

000F C47F04 
0012 268B05 

0015 268B7402 
0019 8EDA 


PRINT/LPRINT FOR PC-9801 
Calling sequence : 
Segment ： 1F00H 
Offset : 0000H ^ PL=0 
P%=0JPRINT 
P^=1：LPRINT 
D 丰 =_OUTPUT DATA' 

CALL PL(P^,D$) 


PARA2 ： LES SI,[BX] 

MOV CX,ES:[SI] 

CMP CH,0 
000F JE SEGDX 

XOR CH,CH 
MOV DX,60H 

SEGDX ： LES DI,04[BX] 

MOV AX,ES:[DI] 

MOV SI,ES:02[SI] 
MOV DS,DX 


ES ： SI=PARA2 
CL=LEN(D$) 
CH=RELOCATION CODE 
WHICH SEGMENT 
IF CH=0 THEN DX 
CH=0:CX=LEN(D 车 ) 

IF CH<>0 THEN 60H 

ES ： DI=PARA1 

AX=P% 

SI=D$ OFFSET 
DS=D$ SEGMENT 


LPRINT ： PUSH DS 

POP ES i ES=DS 

PUSH SI 

POP BX ; BX=SI 

MOV AX.60H 

MOV DS,AX ; DS=60H 

MOV AH.30H 


0026 B 86000 

PRINT ： MOV AX,60H 

； AX-60H 

0029 8EC0 

m\j ES,AX 

5 ES=60H 

002B 51 

PUSH CX 

5 SAVE CX=LEN(D$) 

002C BF0202 

m\J DI,202H 

； DEST=PRINT BUFFER 

002F FC 

C し D 

；INC MODE 

0030 F3A5 

REP MOVSU 

； D$ BLOCK TRANSFER 

0032 59 

POP CX 

5 RESTORE CX 

0033 8ED8 

MOV DS,AX 

； DS=60H 

0035 CDC2 

INT 0C2H 

5 PREPARATION 

0037 B800A0 

MOV AX,0A000H 

5 AX=TEXT リ RAM 

003A 8EC0 

MOV ES,AX 

5 ES=TEXT VRAM 

003C CD89 

INT 89H 

；PRINT CALL 

003E CF 

IRET 

；BACK TO BASIC 


004A CD1A 
004C CF 


INT 1AH 
IRET 


LPRINT CALL 
BACK TO BASIC 


END 


B E 0 3 5 
112 2 2 
0 0 0 0 0 
0 0 0 0 0 



0 8 0 
6 D 3 
E 7 6 B 8 E 4 
1 0 5 5 B 8 B 

F 0 12 3 6 8 
3 4 4 4 4 4 4 

0 Qv 0 0 0 0 0 
0 0 0 0 0 0 0 
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9. PRINT/LPRINT (CMD ON/OFF) 


0000 3CE8 
0002 F8 
0003 7539 
0005 E 80000 
0008 80FBBD 
000B 7418 
000D 80FBBF 
0010 742C 
0012 E90A00 

0015 8936EA06 
0019 BF0D00 
001C CDC4 
001E C3 

001F BF0100 
0022 CDC4 
0024 CB 

0025 BB9C15 
0028 B 84000 
002B 8907 
002D E 90700 

0030 BB9C15 
0033 33C0 
0035 8907 

0037 A1EA06 
003A A3E806 
003D F9 
003E CB 


003F 


003F 90 
0040 3CC0 


PRINT/LPRINT 
with CMD command 
CMD ON : PRINT -> LPRINT 
CMD OFF: Cancel 



CMD 

EQU 0E8H 



ON 

EQU 0BDH 



OFF 

EQU 0BFH 



PRINT 

EQU 0C0H 



LPRINT 

EQU 0ADH 



EXEC 

EQU 06EAH 



NEXT 

EQU 06E8H 



ADDR 

EQU 159CH 



CHECK ： 

CMP AL,CMD 

CLX 

;If not CMD then END 

003E 


JNE PBACK 


0015 


CALL TOKEN 

CMP BL,ON 

； BL=Next Token 

0025 


JE PON 

CMP BL,OFF 

;PRINT -〉 LPRINT 

003E 


JE PBACK 


001F 


JMP ERROR 



TOKEN ： 

MOV •EXEC,SI 
MOV DI,13 

INT 0C4H 

RET 

;Get Token 


ERROR: 

MOV DI,1 

INT 0C4H 

RETF 

5 ^Syntax error y 


PON ： 

MO リ BX,ADDR 

;CMD ON 



MOV AX,OFFSET 
MOV [BX],AX 

AD+1 

0037 


JMP PEND 



POFF ： 

MOV BX,ADDR 
XOR AX,AX 

MOV [BX],AX 

；CMD OFF 


PEND ： 

MOV AX,•EXEC 
MOV ♦NEXT,AX 
STC 

5 Set text pointer 


PBACK ： 

RETF 



CMDOFF 

EQU OFFSET $ 


f 

ORG CMDOFF 


Id 

DB 90H 

5 NOP 

PL: 

CMP AL,PRINT 

;If PRINT then LPRINT 


8DF0DA8C 

EBBCAEE9 

00000665 

00000001 
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0042 

7407 

004B 


JE PRNL 





0044 

3CE8 



CMP AL,CMD 

；If 

CMD 

then 

CMD Process 

0046 

7407 

004F 


JE CMDP 





0048 

E 90200 

004D 


JMP BACK 





004B 

B0AD 


PRNL： 

MOV AL,LPRINT 





004D 

F8 


BACK： 

C し C 





004E 

CB 



RETF 





004F 

E8C3FF 

0015 

CMDP： 

CALL TOKEN 

5 If 

OFF 

then 

POFF 

0052 

80FBBF 



CMP BL,OFF 





0055 

74D9 

0030 


JE POFF 





0057 

80FBBD 



CMP BL,ON 





005A 

74F1 

004D 


JE BACK 





005C 

EBC1 

001F 

SNERR： 

JMPS ERROR 

5 ^ Syntax 

error^ 


END 


400 


10. 漢字フォントをビットイメージで出力 


B414 

FONT: 

MOV 

AH,14H 

;BIOS COMMAND 

8CDB 


MOV 

BX,DS 

;SEGMENT 

B9AA00 


MOV 

CX,OFFSET 

BUFF ； FONT BUUFER 

CD18 


INT 

18H 

5 INT CALL 


;关关关关关兴关关关关关关关关关关关关关关关兴关 

;* KANJI FONT PRINT 
;* IN BIT IMAGE 

； 关关关关关关关关关关关关关关关关关关关关关关兴 

START ： LES SI,[BX] ； GET PARA FROM BASIC 

MOV DX,ES:[SI] ； DX=KANJI C0DE(16 DOT) 
PUSH DS ； SAVE DS FOR INT CALL 

PUSH CS 
POP DS 


0011 

0014 

0017 

0018 

0019 

001B 

001D 

001E 

001F 

0020 

0021 

0023 

0024 

0027 

0029 

002A 

002B 

002D 

002E 

0031 

0033 

0035 

0038 

003A 

003B 

003E 

0040 

0042 

0044 

0046 

0048 

0049 

004C 

004E 

0051 


BFD200 

BEAA00 

46 

46 

33DB 

B101 

56 

57 
53 
51 

33C0 

51 

B 90800 
8905 

47 
47 

E2FA 

59 

BFD200 

32ED 

8A34 

8A5401 

D3E2 

9F 

F6C401 

7504 

B000 

7A02 

B001 

8805 

47 

83C602 

FEC5 

80FD10 

75E0 


GET ： 


0053 BFD200 
0056 B 90200 
0059 E 82400 
005C 8826D100 


OUTLPs 


CLR ： 


0027 


I NLP: 


0044 


0046 


0033 


MOV DI,OFFSET PUORK 
MOV SI,OFFSET BUFF 
INC SI 
INC SI 
XOR BX,BX 
MOV CL,1 
PUSH SI 
PUSH DI 
PUSH BX 
PUSH CX 
XOR AX,AX 
PUSH CX 
MOV CX,8 
MOV [DI],AX 
INC DI 
INC DI 
LOOP CLR 
POP CX 

MOV DI,OFFSET PUORK 


NEXT: 

STR: 

NEXLPs 


BIT STORE UORK 


SI=FIRST BUFFER 
BX=OUTER LOOP C=0 
SHIFT COUNTER 
SAVE KANJI FONT ADD 
SAVE PUORK ADD 
SAVE OUTER C 
SAVE CL COUNTER 
CLEAR PUORK 


XOR CH,CH 
MOV DH,[SI] 

MOV DL,01H[SI] 
SHL DX,CL 
LAHF 

TEST AH,1 
JNE NEXT 
MOV AL,0 
JP STR 
MOV AL,1 
MOV [DI],AL 
INC DI 
ADD SI,02H 
INC CH 
CMP CH,16 
JNE INLP 


INNER LOOP COUNTER CH=0 
DX=FIRST DOT STRING 

SHIFT LEFT CL CF=BIT 

AH=CF 

CF=1? 

IF CF=0 THEN AL=0 
IF CF=1 THEN AL=1 


STORE 

SKIP 2 BYTES 
COUNT UP 
16 LOOPS? 
INNER LOOP 


PICKAL ： MOV DI,OFFSET PUORK 


0080 PCHR: 


MOV CX,2 
CALL PICKUP 
MOV XLOU,AH 


し 0 OP 2 


STORE LOW BYTE 


8 A c F 
0 0 0 0 
0 0 0 0 
0 0 0 0 


4 

7 B 

3 8 

4 6 E E F 

c 21 0 1 

0 2 5 6 7 
0 0 0 0 0 
0 0 0 0 0 
0 0 0 0 0 
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8AC1 

BBCC00 

D7 

C3 


00A1 IE 
00A216 
00A3 IF 
00A4 B411 
00A6 CD1A 
00A8 IF 
00A9 C3 


—SUBROUTINE- 


CALC ： MOV AL.CL 

MOV BX,OFFSET TBL 


XLAT AL 
RET 


1,2,4,8 


； AL=1,2,4,8 


PUTC ： 


PUSH DS 
PUSH SS 
POP DS 
MOV AH,11H 
INT 1AH 
POP DS 
RET 


；BIOS CMD 
5 OUT 1 BYTE (AL) 


DATA SEGMENT 


0070 


0080 

0081 

0083 

0085 

0087 

0089 

008B 

008E 

0090 

0091 

0093 

0096 

0098 

0099 


E81D00 

0080 


CALL PICKUP 



8AC4 



MOV AL,AH 



B210 



MOV DL,16 

# 

YL0U=Y^16 

F6E2 



MUL DL 



0206D100 



ADD AL.XLOU 

♦ 

AL=BYTE TO PRINTER 

E 83100 

00A1 


CALL PUTC 

• 

OUTPUT TO PRINTER 

E2E7 

0059 


LOOP PCHR 



59 



POP CX 


RESTORE CL 

5B 



POP BX 



5F 



POP DI 

• 

RESTORE KUORD ADD 

5E 



POP SI 

♦ 

RESTORE KANJI ADD 

FECI 



INC CL 

• 

SHIFT BIT COUNT UP 

43 



INC BX 

• 

OUTER LOOP COUNT UP 

83FB10 



CMP BX,16 



759F 

001D 


JNE OUTLP 





；++++++++++++++++++++++++++++++++++++++++++ 

IF 



POP DS 



CF 



I RET 


BACK TO BASIC 



;++++++++++++++++++++++++++++++++++++++++++ 

51 


PICKUP ： 

PUSH CX 



32E4 



XOR AH,AH 



B101 



MOV CL,1 

f 

LOOP 4 COUNTER 

8A05 


AD: 

MOV AL,[DI] 



0AC0 



OR AL,AL 



7403 

008E 


JZ ZERO 



E80C00 

009A 


CALL CALC 

9 

1,2,4,8 

02E0 


ZERO: 

ADD AH,AL 



47 



INC DI 



FECI 



INC CL 



80F905 



CMP CL,5 



75ED 

0085 


JNE AD 




59 

C3 


POP cx 
RET 


A c F 0 

0/ 9 07 A 
0 0 0 0 
0 0 0 0 
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00AA 


DATA EQU OFFSET $ 



♦ 

參 

DSEG 



ORG DATA 

00AA 

BUFF 

RS 34 

00CC 0001020408 

TB し 

DB 00H,01H,02H,04H,08H 

00D1 

XLOU 

RS 1 

00D2 

PUORK 

RS 16 


END 



















付録- 2 

ROM 内ルーチンの INT による利用 


(1 )I NT 割り込みベクター覧表 


ベクタ 

アドレス 

ベクタ 

番号 

項 目 名 

機 能 

〇〜3 

0 

除算エラー 

ROM 内の IRET 命令をさしている。 

4〜7 

1 

シングルステップ 

ROM 内の IRET 命令をさしている。 

8 〜 B 

2 

NMI Non Maskable 

InterruDt 

メモリーエラーチェックルーチンに入っている。 

C 〜 F 

3 

INT 3 

ROM 内の IRET 命令をさしている。 

10〜13 

4 

オーバーフロー 

ROM 内の IRET 命令をさしている。 

14〜17 

5 

| COPY |キ- 

rCOPY |キーをおしたとき飛んでゆく 

18〜 1 B 

6- 

「STOP |キ- 

| STOP |キーをおしたとき飛んでゆく 

1 C -1 F 

7 

インターパルタイマ 

ROM 内の I RET 命令をさしている 

20〜23 

8 

タイマー 

ROM 内の処理ルーチン 

24〜27 

9 

キーボード 

キースキヤン 

28〜 2 B 

A 

CRT V 


2 C 〜 2 F 

B 

拡張バス INTO 


30〜33 

C 

RS -232 C 


34〜37 

D 

拡張バス I NT 1 

カセット （ C 1 V [丁） 

38〜 3 B 

E 

拡張バス I NT 2 

ODA プリンタ 

3 C 〜 3 F 

F 

システム予約 


40〜43 

10 

セントロプリンタ 


44〜47 

11 

拡張バス I NT 3 

5" ハードディスク 

48〜 4 B 

12 

拡張バス I NT 4 


4 C 〜 4 F 

13 

8〃フロッピーデイスク 


50〜53 

14 

拡張バス I NT 5 


54〜57 

15 

拡張バス I NT 6 


58〜 5 B 

16 

8087 


5 C 〜 5 F 

17 

ノイズ（システム予約） 


60〜63 

18 

キーボード ， CRT 

コマンド 

No . 

AH 


ベクタ番号 18 H 

I NT 18 H 

は，キーボード， CRT 関係の BIOS で 

す 。 A H レジスタに，コマンド No •をセット 

0 

読み出したキーデータコードを AX に入れて戻る。 

AH …スキャンコード 

AL …内部コード 

します。 


1 

バッファ先頭のキーコードを A X に入れて戻る0 

BH …1なら有効，0無効 

0-4 

キーボード 


A -19 

テキスト VRAM 

40-4 A 

グラフイック VRAM 
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となっています。40〜 4 A グラフィック VR 
A IV [のコマンドは，グラフィック画面の章 
で説明致しておりますので，そちらをご覧 
下さい。 
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0 FH 


機 能 

コマンド 

No . 

AH 


OCH 

テキスト画面表示開始 

ODH 

テキスト画面表示停止 

OEH 

テキスト画面の HOME の位置を変更する0 

DX …テキスト RAM 上のオフセットアドレス 

(セグメントアドレスは A 0 0 0 H ) 


テキスト画面に複数の画面を定義する。 

BX …リストのセグメントアドレス 
CX …リストのオフセツトアドレス 

DH …リストで最初に定義するエントリの表示領域番号 （0 〜 3) 
DL …リストで定義するエントリ個数 （ 1〜4 ) 

表示行数 
1〇 


テキスト画面 


BX : CX 


リスト 


So 

1〇 

s, 

ll 

s 2 

l 2 

s 3 

l 3 



S 0 (オフセットアドレス） 
GD 〇からみたアドレス 


2バイト 


2バイト 


10 H 


AL =0 カーソルを ブリンクさせる 

1カーソルを ブリンクさせない 


11 H 

上記設定 のカーソルを 表示 

12 H 

カーソルを 消す 

13 H 

DX ( CPU アドレス）に設定したテキスト VR 

AM アドレスに カーソルを 表示する。 














































機 


能 


コマンド 

No . 

AH 


14 H 


フォントパターンをよみ出す。 

BX …フォントパターンバッファ先頭セグメントアドレス 
CX …フ ォン トパターンバッファ先頭オフセットアドレス 
DX …コード 

• ANK の場合 
DL …コード 

DH … jOOH 標準 CRT (6 X 7 フォント10バイト/バッファ） 

180 H 専用高解像度 CRT (7 X 13 フォント18バイト/バッファ） 
DH DL 

7 X 13 フォントで「年 （2 FH )」 のフオントパターンを 
よみ出す場合 


例： DX 


80 


2 F 


' 漢字の場合 
DX …コード 
DH 

例： DX [ 


D し 


34 


41 


「漢 （3441 H )」 のフォントパターンをよみ出す場合 


例：+角の場合は AN K コードと同じです。 

出力形式 

(DANK (6 X 7), 漢字+角 

8ビッ 

①一 


8バイト 


②- 


⑧- 


01 


01 


①② 


⑧ 


巳 X : CX 


② ANK ( 7 X 13) 
8ビット 


16バイト 


① 


01 


02 


① 


⑱ 


巳 X : CX 


⑭ 


③漢字全角 


16 ビッ 


16バイト 


① 

② 

⑧ 

④ 

• 

• 

㉛ 

㉜ 


02 

02 

① 

• 

t • 






㉜ 


巳 X : CX 
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機 能 

コマンド 

No . 

AH 


15 H 

ライトペンのセンス 

出力 AH … j 0ライトペンがおされている 

11ライトペンがおされていない 

DX …ライトペンのおされているテキス 

卜 VRAM のアドレス （CPU 例） 

16 H 

テキスト VRAM の全領域をクリア 

DH …アトリビュートエリアをクリアするデータ 

DL …表示エリアをクリアするデータ 

(空白なら 20 H ) 

17 H 

ブザー ON 

18 H 

ブザー OFF 

19 H 

ライトペン押下状態の初期化 

コマンド 15 H (ライトペンのセンス）を行なう前 

に必ず実行すること。 

40 H 〜 

4 AH 

グラフィック画面に関するものです。グラフィッ 

ク画面の章で説明しておりますのでそちらを ご覧 

下さい。 

ベクタ 

' T ドレス 

ベクタ 

番号 

項目 名 

機 能 

64 〜 67 

19 

RS -232 C 


I NT 19 H は RS -232 C 関係の B I OS です。 


コマンド 

No . 

AH 


00 

RS -232 C の初期化 


410 

























コマンド 

No . 

AH 


00 


機 


能 


RS 232 C インターフェースの初期化。 

入力 AL …伝送速度 


A し 

ボーレイト 

00 

75 

01 

150 

02 

300 

03 

600 

04 

1200 

05 

2400 

06 

4800 

07 

9600 


CH …8251 A のモード（非同期モード） 
bit 0 ,1ボーレート 


• X 16, 3- X 64 


bit 2,3キャラクタ長 

0 

5ビット 


1 

6ビット 


2 

7ビット 


3 

8ビット 

bit 4 パリテイイネーブル 

( 0デイスエイブル， 

bit 5 〇…奇数パリティ，1 

…偶数パリティ 

bit 6 , 7ストップビット長 

1 

1ビット 


2 

1.5 ビット 


3 

2ビット 


CL … 8251 A のコマンド 


bit 

内 容 

〇 

TXEN 

送信イネーブル 0: ディ スエ イブル 1 :イネーブル 

1 

DTR 

データター ミナル Ready 0 : Busy 1: Ready 

2 

RXE 

受信イネーブル 0: ディ スエ イブル 1 :イネーブル 

3 

SBRK 

Break 0 : Break 送信しない 1 : Break 送信する 

4 

ER 

エラー リセット 0 :エラー リセットしない 1 : エラー リセットする 

5 

RTS 

送信要求 0 : OFF 1: ON 

6 

IR 

内部リセット 0 :しない 1 :する 
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コマンド 

No . 

AH 


機 


能 


00 H の 
つづき 


ES ： D I …受信バッファの先頭アドレス（セグメント：オフセット） 
D X •••受信バッファの大きさ（バイト単位） 

BH …送信時タイムアウト時間（ X 500 msec ) 

BL …受信時タイムアウト時間（ X 500 msec ) 

出力 A 11…(）正常終了 
RS 232 C バッファの構成 



受 
^信 

リバ 

ンツ 

グフ 

バア 

ツ 

フブ 
ァ □ 
…ン 
ク 


+ 2 
+ 3 
+ 4 
+ 5 
+ 6 
+ 8 
+ A 
+ C 
+ E 
+ 10 
+ 12 


X 


+ 14 
+ 15 


b 7 


匕7匕6 bs し3 0 0〇 


1バイト 


1バイト 


2バイト 


2バイト 


2バイト 


2バイト 


2バイト 


2バイト 


2バイト 


データ （1 バイト） 


ステータス（彳バイト） 


/ 以下同様 ヽ 

データ、ステータス 
\ の順に格納 , 


データ 


ステータス 


〇…データ受信割り込みなし 
1…データ受信割り込み発生 

未使用 

RS -232 C 内部フラグ（注1 ) 

CU こセットした コマン ドの コピー 
BH の コピー 
BL の コピー 
バッファの最大長の+ 

バッファの最大長の+ 

バッファの先頭アドレス 
バッファの最終アドレス+1 

バッファ内の有効データ長 
(データの2バイト単位） 

バッファの空エリア先頭ポインタ 
(ワード） 

バッファ 内の有効 データ 先頭 データ 
ポインタ 

注1 

bit 3 … CTRL-Q 出力 
. Sbit 4 … CTRL-S 出力 

bit 5 …受信バッファオーバーフロー 
bit 6 …受信バッファフル 
bit 7-8251 A 初期化 

(正論理フラグです。） 
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コマンド 

No . 機 能 

AH _ 

01 H フロー制御を行なう R S -232 C 初期化。 


データ受信割り込み時 (RXRDY •••割り込み番号 0 CH ) に受信バッファの有効デー 
夕長がバッファの大きさの手以上になったとき，送信側に CTRL - S コード （13 
H ) を出力し，送信を停止することを要求します。 

受信データの引き取り （ Recieve コマンド）処理時に，受信バッファの有効デー 
夕長が，バッファの大きさの+以下になったとき，送信側に， CTRL - Q コー 
ド （11 H ) を出力し，送信停止状態を解き，送信を再開することを要求します。 

CX に，受信データの長さを得る。 

02 H 

データとステータス」合わせて2バイト）で1データです。_ 

03 H A L 内のデータを送信します。 


AH に 
リターン 

コード 

内 容 

0 

正常終了 

1 

RS -232 C インターフヱースの初期化が 
行なわれていない。 

2 

受信割り込み処理において、 

受信バッファがオーバーフローした。 

3 

送、受信処理において、 8251 A からの 
送、受信可のステータスを引き取れなかった。 


04 H 

データ受信0 CH にデータ， CL にステータスが入る。 

05 H 

RS -232 C へ AL 内のコマンドを出力します。 

06 H 

RS -232 C のステータスを 得る。 


出力 

8251 A ステータス 


ビット 

7 

6 

5 

4 

3 

2 

1 

0 

略称 

DSR 

SYN 

DET 

FE 

OE 

PE 

TXE 

RXRDY 

TXRDY 

1 

ON 

ブレーク 

検出 

エラー あり 

エラーあり 

エラ-あり 

バッファ空 

Ready 

Ready 

0 

OFF 

検出なし 

エラーなし 

エラーなし 

エラーなし 

バッファ満 

Busy 

Busy 
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コマンド 

No . 

AH 


機 


能 


CL システムボー ト ステータス 

bit 5 CD 0 :受信キャリア検出あり 

1:受信キャリア検出なし 
bit 6 CS 0 :送信可 

1:送信不可 


ベクタ 
アドレス 


ベクタ 

番号 


項目 名 


68〜 6 B 


1 A 


コマンド 

No . 


AH 


10H 


11 H 


12 H 


30 H 


カセット，プリンタ B I OS 


機 


能 


I NT 1 A はカセット，プリンタ関係の B I OS です。 


コマンド 


卜5 

CMT 

I 0- I 2 H 30 H 

プリンタ 


機 


能 


セン トロニ クスパラレルプリンタ 


プリンタインターフェース，ステータスエリアの初期化 
出力 AH bitO が j 0…データ送信できない 
11…データ送信可能 


AL 内のデータをプリンタに出力します。 

0…データ未出力 
1 


出力 AH bitO 


bill 


データ出力完了 
〇…データ出力完了 

1…タイムアウトでデータ出力できなかった。 


プリンタのステータスのセンス 

〇…データ出力できない （ Busy ) 

1…データ出力可能 （ Ready ) 


出力 AH bitO ‘ 


複数バイトのデータ出力 

入力 BX …データバッファのオフセットアドレス 
ES …データバッファのセグメントアドレス 

CX …データのバイト数（データバッファはセグメント境界をまたがってはいけない） 


出力 AH … bitl 


0…正常終了 

1…タイムアウト発生，未出カデータがある。 

そのときの位置は BX にある。 （ CX …未出カバイト数） 
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コマンド 

No . 機 

AH 


10H 〜 


12 H 


0 DA シリアルプリンタ 

コマンド 10 H 〜 12 H , 30 H の動作は同じです。 

出力のステータス情報が異なります。 

出力 AH 


能 


30 H 出力 


f 0 データ送信不可能 
bitO …ベ 

データ送信可能 ( RDA ) 
bitl …… *1 ならタイムアウト 
bit 4 ……1ならプリンタの電源が ON 
bit 5 ……1なら用紙残少又は用紙切れ （Media Lavo , PE ) 

bit 6.*1 ならプリンタのハードエラー （ Alarm 又は Fault ) 

bit 7 ……1ならプリンタがデータ受信可能 ( RMR , セレクト） 


AH 


00 

正常終了 

02 

タイムアウト 

03 

用紙残少又は用紙切れ 

62 

プリンタ未接続、プリンタ電源 OFF 

63 

通信不可 

64 

プリンタにハードエラー発生 


カセット 


00 H 
01 H 
02 H 


03 H 


04 H 


05 H 


カセットのモータ OFF 。 出力 AH …正常終了 00 
カセットのモータ ON 。 データ読み取り可能な状態にする 
出力 A H …正常終了 00 
入力 AL … 100 H ...600 ボー 
180 H …1200ボー 

カセットのモータ ON 。 データ書き込み可能な状態にする。 

データを書き込む。データは AL に入れる。 （03 H を実行済のこと） 

出力 AH …〇正常終了，2-タイムアウト 

データを読み込む。データは A L に入ってくる。 （02 H を実行済のこと） 

( 〇…エラーを報告せよ。 

入力 AL …リード時エラー処理 

I 1…エラーを 無視せよ。 


出力 AH …〇…正常終了 


2…タイムアウト 

27 H … テープリードエラー（フレーミン グ エラー，オーバーランエラー） 
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ベクタ 
アドレス 


ベクタ 

番号 


項目 名 


6 C 〜 6 F 


1 BH 


フロッピーディスク （5 インチ，8インチ）の B I 0 S c 
デイスクの章で詳細説明している。 


70〜73 


1 CH 


カレンダ，インターバルタイマの B I OS c 


コマンド 

No . 
AH 


機 


能 


00 H 


ES : BX にセットしたバッファに，日付.時刻をよみ出す 


年 i 年 

月丨曜 

日：日 

時 i 時 

分丨分 

秒秒 

1〇の位 U の位 

i 日 

10の位 i 1の位 

1〇の位 U の位 

10の位丨1の位 

10の位 i 1の位 


ES：BX 


月と曜日は16進，それ以外は BCD 表現で入っています。 


01 H 


日付 • 時刻をセットします。バッファは ES : BX に設定 
し，形式はコマンド 00 H と同じです。 


02 H 


インターバルタイマ割り込みのセット。 

CX …インターバルタイマ値 （ X lOmec ) 

最大655360 msec 与11分 （ CX =0000 H ) 

E S ： B X タイムアウトになったときの ユーザー 処理 ルー 


チン0 

例えば， CX = 1にしてこのコマンドを発行す 
ると， 10 msec ごとに INT 7 割り込みがかかって, 
ES : BX 処理ルーチンに制御が移ります。 
(何もないとき INT 7のべクタは ROM 内の I RET をさ 
しています。） 

使用法の一例が335ぺージの「14 — 14リアルタイム 
で時間表示」にあります。 
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ベクタ 

アドレス 

ベクタ 

番号 

項目 名 

機 能 

74-77 

1 DH 

システム予約 

何もないときは ROM 内の IRET 命令をさしている。 

78〜 7 B 

1 EH 

Ngs-BAS I C (86) 

コールドスタート 

7 C 〜 7 F 

1 FH 

システム予約 

システム予備の領域 D 800 : 2 A 00 をさしている。 

80 ~FF 

20〜 3 F 

システム予約 

ROM 内の I RET 命令をさしている。 

100 〜 IFF 

40〜 7 F 

ユーザー用 

ROM 内の I RET 命令をさしている。ユーザーが定義し 

て自由に使えます。 

200〜203 

80 H 

初期化 

キーボード ， CRT L 10の初期化 

204〜207 

81 H 


処理なし 

208〜20 B 

82 H 

WI DTH 

WI DTH 文の下うけ処理をする。 33 H のステータスをみ 

ながら，ボート 60 H ，62 H にデータを OUT する。 

2002 0 F 

83 H 

センス Interrupt 

キーボードからの割り込み状態をセンスする。 

210〜213 

84 H 

INPUT A $ 

キーインデータ処理 

214〜217 

85 H 

INPUT WAIT 

INPUT WA I T 文の下うけ処理をする。 

218-21 B 

86 H 

キーインライン 

キーインライン処理をする。 

21 C 〜 21 F 

87 H 

I NPUT $ 

I NPUT $ 文の下うけ処理をする。 

220〜223 

88 H 

I NKEY $ 

I NKEY $ 文の下うけ処理をする。 

224〜227 

89 H 

PR I NT 

PR I NT 文の下うけ処理をする。 

228〜 22 B 

8 AH 

BEEP 

BEEP 文の下うけ処理をする。 

AL …1 BEEP 1 

22022 F 

8 BH 

スクロール 

AL …1 スクロールダウン 

〇 スクロールアップ 

230〜233 

8 CH 

C R 

次の論理行へカーソル設定。 

N-BASIC 

(86) 用 

234〜237 

8 DH 

P ( RE)SET 

Ngs-BAS I C (86) では未処理 

238-23 B 

8 EH 

POINT 

Nss-BAS I C (86) では未処理 

23023 F 

8 FH 

GET @ 

Nss-BAS I C (86) では未処理 

240〜243 

90 H 

GET@A 

Nss-BAS I C (86) では未処理 

244〜247 

91 H 

PUT @ 

Nss-BAS I C (86) では未処理 

248-24 B 

92 H 

PUT@A 

Nss-BAS I C (86) では未処理 

24 C 〜 24 F 

93 H 

BOX 

Ngs-BAS I C (86) では未処理 

250〜253 

94 H 

ラインアトリビュートの設定 

254〜257 

95 H 

COLOR @ 

C 0 L 0 R @( X 1, Y 1) — （ X 2, Y 2) 文の下うけ処理 
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ベクタ 

アドレス 

ベクタ 

番号 

項目 名 

機 能 

258-25 B 

96 H 

ON TIME GOSUB 

ON TIME GO SUB 文の下うけ処理をする。 

25025 F 

97 H 

K I NPUT 

日本語入力処理 

260〜263 

98 H 

CLS 

テキスト画面全体のクリアをする。 

ES —[1412 H ] をしておくこと。 

264〜267 

99 H 

KEY LIST 

文字コードの表示。 

アキスコード ODH (キヤリツジリターン）等を C R など 
文字コードで表示する。 

KEY LI ST ルーチンで使用している。 

[使用法] 

DS —60 H 

ES — [1412,1413 H ] 

CX — 文字数* 2 (バイト） 


ノ《ツ ファ 

セグメント 60 H :オフセット0 

2バイトで1文字を表わす。 



[436, 437 H ] — Y 座標 

[43m39h] 一 x 座標（は料は用 8 さ 9 ju pr ) 

268-26 B 

9 AH 

PEN 

ライトペン入力処理 

26 C 〜 26 F 

9 BH 

C R 

次の物理行へカーソルを設定。 

270〜273 

9 CH 

CTRL-U 

物理行をクリアする。 

[使用法] 

DS —60 H 

ES —[1412，1413 H ] 

DX — クリアする行 

[482 H ] —クリアするキャラクタ 

[47 FH ] —クリアするアトリビュートコード 

274〜277 

9 DH 

ファンクシヨンキー 

ファンクションキー行の表示 

278-27 B 

9 EH 

キーインバッファクリア 

L I 0/ B I 0 S のキーインバッファをクリアする。 

27 C 〜 27 F 

9 FH 

システム予約 

カーソル SW のチェックルーチンにとんでいる。 
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ベクタ 

アドレス 

ベクタ 

番号 

項目 名 

機 能 

280〜283 

AOH 

グラフィック L I 0初期化 

[使用法:！については，グラフィック画面 

の章で詳細に説明している。 

I NT AOH 〜 

I NT AFH 

はグラフィック 
\ LI 0のコマンドです。/ 

284〜287 

A 1 H 

SCREEN 

288-28 B 

A 2 H 

VI EW 

28028 F 

A 3 H 

COLOR 1(色処理） 

290〜293 

A 4 H 

COLOR 2 (パレット処理） 

294〜297 

A 5 H 

CLS (グラフィック画面の CLS ) 

298-29 B 

A 6 H 

PSET/PRESET 

29029 E 

A 7 H 

L I NE 

2 A 0 〜 2 A 3 

A 8 H 

C I RCLE 

2 A 4 〜 2 A 7 

A 9 H 

PA I NT 1(色でぬりつぶす） 

2 A 8 〜2 AB 

AAH 

PA I NT 2 (タイルパターンでぬりつぶす) 

2 AC 〜 2 AF 

ABH 

GET 

2 B 0 〜 2 B 3 

ACH 

PUT 1(画） 

2 B 4-2 B 7 

ADH 

PUT 2 (漢字） 

2 B 8 〜 2 BB 

AEH 

ROLL 

2 BC 〜 2 BF 

AFH 

POINT 

2 C 0-2 C 3 

BOH 

DISK L I 0 

2 C 4 〜 2 C 7 

B 1 H 

システム予約 

ROM 内の I RET をさしている（ハードディスク B I OSW ) 

2 C 8-2 CB 

B 2 H 

システム予約 

ROM 内の I RET をさしている 

2 CC 〜2 CF 

B 3 H 

システム予約 

ROM 内の I RET をさしている 

2 D 0 〜 2 D 3 

B 4 H 

DISK L I 0初期化 

2 D 4 〜 

2 FF 

B 5 H 〜 

BFH 

システム予約 

ROM 内の I RET をさしている 

300〜303 

COH 

COPY 

ハー ドコピー処理 

304〜307 

C 1 H 

コード変換1(キーボード / CRT L I 0) 

308-30 B 

C 2 H 

コード変換2 (キーボード / CRT L I 0) 

3003 OF 

C 3 H 

CALL , USR 

N 88 -BASIC (86) から CALL , USR でユーザーの 

マシン語を実行するときに使う。 

310 

1 

313 

C 4 H 

RAM 部にある DISK LIO やモニタから ROM 部のサブルーチンを呼び出す 

のに使用される。/ 「 ROM 内ルーチンの利用 （INT C 4 \ 

1 H)j (421 ページ)の章で詳細に説明する。ノ 
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ベクタ 

アドレス 

ベクタ 

番号 

項目 名 

機 能 

314〜317 

C 5 H 

グラフィック L I 0から割り込みをセンスするエントリー。 

318〜31 B 

C 6 H 

DISK BAS IC のスタートエントリー 

31 C 〜 31 F 

C 7 H 

D I SK 版 Edit 機能 

320〜323 

C 8 H 

N 88 -BAS I C (86) 

システム予約 ROM 内の I RET をさしている 

324〜327 

C 9 H 

N 88 -BAS I C (86) 

システム予約 ROM 内の I RET をさしている 

329 -32 B 

CAH 

N 88 -BAS I C (86) 

システム予約 ROM 内の I RET をさしている 

32032 F 

CBH 

TERM 

TERM 文の処理をする。 

330〜333 

CCH 

リモート BAS I C プロトコルにおける BAS I C ステートメント，実行結果の 

回線への送信処理 

334〜337 

CDH 

リモート BAS I C プロトコルの処理 

338〜 33 B 

CEH 

COPY 

グラフィック画面を RAM 上のバッファによみ出す。 

33033 F 

CFH 

MON 

モニタ ROM 部のエントリー 

340〜343 

D 0 H 

MON 

モニタ RAM 部のエントリー 

コマン ド A , L , ~ R , ， 

344〜347 

D 1 H 

GP-I B 

GP-I B B I 0 S 起動用 

348〜34 B 

D 2 H 

表示選択機能用 

34 C -3 C 3 

D 3 H 

1 

F 0 H 

Ngs-BAS I C (86) 

システム予約 

ROM 内の I RET をさしている 

3 C 4 

\ 

3 FF 

F 1 H 

1 

FFH 

ユーザー用 

ユーザーが自由に定義して使える。 I NT 命令を使えば2 

バイトでセグメント間コールができる。 
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(2)1 NT C 4 H のソフトウエアインターフェイスの説明 

D I SK-BAS I C 等 RAM 上のプログラムは ， INT C 4 H を用いてテキストの解析，エ 
ラーメッセージの表示などを行なっています。 

ここでは，その使用法を説明します。 

この ルーチンを利用するときは，セグメントレジスタ，フラグを以下のように設定する必要があり 
ます。 

DS —60 H ， SS —60 H 

フラグ INT C 4 H によって呼び出すときは，関係ない。 

(I NT 命令は，フラグをスタックに PUSH するから。） 

Far call CALL F によって呼び出すときは， 

CLD D F = 0 (ディレクシヨンフラグ= 〇 ) 増加方向。 

STI I F = 1 (インタラプトフラグ =1) インタラプトイネーブル0 
にすること。 


D I にコマンド No . をセットして ， INT C 4 H (CD C 4) を実行します。 
コマンド No . は実に，〇~82 (10 進）の83個もあります。 

をの一覧表を示します。 _ 


ベクタ 

エントリ- 

No . 

機 能 

ベクタ 

エントリー 

No . 

機 能 

0 

エラーメッセージの表示 

19 

ファイルディスクリブタのコード化 

1 

syntax error 表小 

20 

デバイスタイプコードの取得 

2 

Illegal function callfc/jN 

21 

A00H 番地の内容番地をコール 

3 

Type mismatch 表小 

22 

変数アドレスの取得 

4 

エラーメッセージ表示後， RETURN 

23 

ACC-1 へのロード 

5 

倍精度加算 

24 

ACC-1 のストァ 

6 

倍精度乗算 

25 

ストリング値のロード 

7 

倍精度除算 

26 

コンマのスキップ 

8 

倍精度の整数化 （ I NT) 

27 

指定行から実行を開始 

9 

倍精度化 （ CDBL ) 

28 

次の行を実行 

10 

オーバフロー処理 

29 

VAL 関数と同等 

11 

ゼロ除算処理 

30 

ダイレクトモードエントリ 

12 

数値の整数化 （C I NT ) 

31 

プログラム編集時のステータスリセット 

13 

トークン抽出 

32 

PRINT USING 用編集 

14 

数式評価 

33 

値の編集 ( STR $) 

15 

Temporary string descriptor の生成 

34 

スペースアイテムのスキップ 

16 

テキスト—ソースイメージ変換 

35 

文の終端判定 

17 

行番号のバイナリ化 

36 

バイナリ—10進数変換 (STR$) 

18 

ファイル番号の評価，チヱック 

37 

カレントデバイスへの出力 
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ベクタ 

エントリー 

No . 

機 能 

ベクタ 

エントリー 

No . 

機 能 

38 

ベクタ No . 1と同じ 

61 

1文字 CRT へ表示 

39 

ベクタ No . 3と同じ 

62 

カーソルのリセット 

40 

ベクタ No . 2と同じ 

63 

し R ， L F の出力 

41 

実数化 （C S N G ) 

64 

〇尺丁へしル出力 

42 

倍精度化 （ CDBL ) 

65 

CRT カーソルのリセット 

43 

実数加算 

66 

符号なし整数化 

44 

実数減算 

67 

添字評価 

45 

実数乗算 

68 

ストリングエリアゴミ集め 

46 

実数除算 

69 

符号なし整数の実数化 

47 

実数比較 

70 

气 n XXXXX ^ 表示 

48 

倍精度減算 

71 

文の読みとばし 

49 

倍精度比較 

72 

DATA 文の読みとばし 

50 

バイナリ — 8 進数変換 （0 CT $) 

73 

文字列定数の読みとばし 

51 

バイナリ—16進数変換 ( HEX $) 

74 

数式の評価及び結果の整数化 

52 

符号なし整数値->10進変換 

75 

キー，タイマ割り込みのセンス 

53 

テキストアドレス—行番号書き換え 

76 

COM , PEN 割り込みのセンス 

54 

テキストから1項目抽出 

77 

1行トランスレート 

55 

指定行番号をもつテキストアドレスの取得 

78 

メモリスイッチの内容取得 

56 

ベクタ No .55 と同じ 

79 

未実装 RAM アクセスチェック 

57 

テキストのサーチ 

80 

ストリングエリアの割り付け 

58 

数式の存在のチェック 

81 

キーワードのサーチ 

59 

CRT への表示 

82 

キーボードより1行入力 

60 

CRT への表示（無条件） 
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次に使用法を説明します。 


倍精度加算 


FAC 1 FAC FAC=FAC 1 +FAC 



1414 

141 F 

1415 

1420 

1416 

1421 

1417 

1422 

1418 

1423 

1419 

1424 

141 A 

1425 

141 B 

1426 

141 C 

1427 

141 D 


型 


符号ビッ 


D I 


機 能 


エラー メ ッセージ の表示 


表示後ダイレクトモードに入ります。 


Syntax error 表小 


Illegal function call 表/パ 


Tvpe mismatch 表不 


エラー メ ッセージ の表不 


使用法 • 注意点 


表示後ダイレクトモードに入ります0 


表示後ダイレクトモードに入ります。 


表示後ダイレクトモードに入ります。 


表示後 IRET します。 


倍精度乗算 


倍精度除算 


FAC = FAC 1氺 FAC 


FAC = FAC 1 /FAC 


倍精度の整数化 


FAC = I NT ( FAC ) 


倍精度化 


FAC = CDBL ( FAC ) 


OAH 


オーバーフロー 処理 


0 V と表示して戻る。 


0 BH 


ゼロディバイド処理 


0/と表示して戻る。 


0 CH 


数値の整数化 


FAC = C I NT ( FAC ) 


ODH 


トークン抽出 


6 E A , BH に解析したいテキストのアドレスを入れる。 
出力 。 S I …次のトークンのアドレス 

o BL …解析したトークン （80 〜 FEH ) 

。関数のときには， 

BL = 0 011で0乙にド卩の次のコードが入る。 
oUSR 関数のときは， DX に USR の番号が入る。 
。10〜 1 FH の数字は FAC にセツトする。 


倍精度 


単精度 


整数 
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D I 


ODH 

のつづき 


OEH 


機 能 


トークン抽出 


数式評価 


0 FH 


10 H 


11 H 


12 H 


テンボラリストリング 
ディスクリプタの生成 


テキスト内部表現 
—ソースイメージ 変換 


行番号のバイナリ化 


フアイル番号の評価と 
チェック 


使用法 • 注意点 


BL の値 

トークンの種別 

04 H 

FN 

0 AH 

USR 

0 CH 

関数 。 FF XX 

0 EH 

REM の前の 00( Null コード）が 

検出された。つまり， REM 文だ。 


LIST . の.が検出された。 

10 H 

そのときの.の示す行のアドレス 


は DX レジスタに入れられている。 


6 EA ，6 EBH に評価したい数式のアドレスを入れる。 

例えば，テキスト， 

A * (10+ B ) 

t 

[6 EA , 6 EB ] 

B の値と10を足して， A の値をかけた最後の結果を返 
してくる。 

結果は， FAC に入れられる。 


一時的なストリングディスクリブタを作る。 

例えば，ダイレクトモードで， 

A $=“ ABC ” 

とした場合など，画面をクリアすると， “ ABC ” は消えるの 
で，文字列エリアに格納される。このときの一時的なストリ 
ングディスクリプタを作る。 


S I …ソースイメージにしたいテキスト（内部表現）の先頭 
アドレス 

B X …ソースイメー ジを出力するバッファの先頭オフセット 
アドレス 

(セグメントアドレスは DS =60 H に固定されている。） 


S I …ボインター（オフセットアドレス） 
3130 30 100 

t 

出力 S I 

AX …バイナリ化された行番号 


[6 EA , 6 EB ] にファイル番号部分をさすアドレスを入れ 


る 


不適切なファイル番号のときは， 

Bad file number を出力し，ダイレクトモードに入る。 
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D I 

機 能 

使用法 • 注意点 

12 H 

のつづき 

ファイル番号の評価と 

チェック 

[1536,1537] •••ファイル No . 

[1538，1539] •••File Control Block アドレス 

13 H 

ファイルデイスクリプタの 

コード化 

ドライブ No . の評価をし， COM ， LPT , SCRN , KY 

BD のフラグをたてる。ファイル名をとり出す。 

[6 EA , 6 EB ] に評価したいファイルディスクリプタ 

i 

“2 : DEMO . A SC ” 

出力 

152 C 〜 1534 H ファイルネーム 

152 B ドライブ Number . 

14 H 

デバイスタイプコードの取 

得 


15 H 

AOOH 番地の中身の番地を C 

ALL する。 

AOOH , A 01 H 番地にオフセットアドレスを入れてよぶとイ 

ンタープリンタ内のルーチンを直接よベる。 

16 H 

変数ァドレスの取得 

[6 EA , 6 EB ] 変数名の先頭ァドレスを入れる。 

変数のアドレスは， 

154 E ，154 FH …オフセット 

1550，155 1 H …セグメント 

に入って戻ってくる。 

17 H 

FAC への ロード 

[6 EA ，6 EB ] にアスキー数字列，変数名の先頭ァドレス 

を入れる。 

その値が F A C に入る。 

18 H 

FAC のストア 

154 E , 154 FH …オフセット，1550， 1551 H …セグメントで 

示されるアドレスに， FAC の値をストアする。 

19 H 

ストリング値のロード 


1 AH 

コンマのスキップ 

6 EA , 6 EBH に解析中のアドレスを入れる。 

次の卜ークンがコンマし 2 CH ) でなければ Syntax error 

を表示して，コマンドまちになる。コンマならば，何もせず 

戻る。 6 EA , 6 EBH にはコンマの次のトークンをさしている。 

1 BH 

指定行から実行を開始 

実行したいテキストの1行の先頭のアドレスを BX レジスタ 

に入れて呼ぶ。 BX でさすアドレスはまさしく行の先頭，つ 

まり，リンクボインタをさしていなければならない。 
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D I 

機 能 

使用法 • 注意点 

1 CH 

次の行を実行 

6 EC ，6 EDH に入れた先頭アドレスをもった行の次の行から 
実行する。 

6 EC ，6 EDH に入れる先頭アドレスは，1行の最初のリン 
クボインタをさしていること。 

1 DH 

VAL 関数と同等 

6 EA , 6 EBH にアスキー文字列の先頭アドレスを入れる。結 
果は， FAC に入る。 

1 EH 

ダイレクトモード 

エントリー 

スタック等のイニシャライズをしてダイレクトモードに入 
る。ユーザー機械語の処理がおわったときに， BASIC の 
コマンド待ちに戻るときのエントリーに使える。 

1 FH 

プログラム編集時のステー 

タスリセット 

プログラムを編集すると，このルーチンがよばれる。 

READ ボインタをテキストの Top にする。 

添字の下限を0にする。 

データスタックのクリア。ストリングエリアのクリア。 
シンボルテーブルの初期化。エラーフラグのクリア。 

Function キーフラグのクリアなどをする。 

20 H 

PRINT USING 

用編集 


21 H 

値の編集 （ STR $) 


22 H 

スペースアイテムのスキッ 

プ 

6 EA , 6 EBH にセットしたアドレスから，スペースをスキッ 
プして，スペース以外のものが出てきたそのアドレスを 6 EA ， 
6 EBH にセットする。 

スペースとは，アスキーコードの 20 H 以外にも， 内部 表現の 
スペース1 個〜 9 個を 示す01 H 〜 09 H も含む。 

23 H 

文の終端判定 

S I にテキストのアドレスを入れて呼ぶ。 

,,,ハー♦.丨〇…文の終端である 
キャリークラブが 

11…文の終端ではない 

24 H 

バイナリ- ► lO 進数変換 

( STR $) 

F A C にバイナリ表現の数値を入れてこのルーチンを呼ぶ 
と， BX レジスタによって指されるバッファ（セグメント60 

H に固定）に，ソースイメージ（アスキーコードの数値表現） 

で格納する。 
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D I 

機 能 

使用法 • 注意点 

25 H 

カレントデバイスへの出力 

1840 H …ブリント先 

3…プリンタ 

4 … C R T 

その他…ディスク， RS -232 C 等 

1842, 1843 H …文字のバッファ 

CX …文字数 

26 H 

D I =1と同じ 

syntax error の表不 

27 H 

D 1 = 3と同じ 

Type mismatch の表小 

28 H 

D I = 2と同じ 

Illegal function call の&不 

29 H 

実数化 

FAC = CSNG ( FAC ) 

2 AH 

倍精度化 

FAC = CDBL ( FAC ) 

2 BH 

実数加算 

FAC = FAC 1 +FAC 

2 CH 

実数減算 

FAC = FAC 1 一 FAC 

2 DH 

実数乗算 

FAC = FAC 1 *FAC 

2 EH 

実数除算 

FAC = FAC 1 /FAC 

2 FH 

実数比較 

FAC : 

れる。 

L — FAC をし，比較の結果は整数で FAC に格納さ 

- 1… FAC 1 <FAC 

〇… FAC 1 =FAC 

1… FAC 1 >FAC 

30 H 

倍精度減算 

FAC = FAC 1 -FAC 

31 H 

倍精度比較 

実数比較と同じ 

32 H 

バイナリ 

—8 進数変換 

( OCT $) 

2バイトのバイナリ表現 （ FAC ) をアスキー表現の8進数に 

変換バッファは BX でさす。 

33 H 

バイナリ 

—16 進数変換 （ HEX $) 

DI =32 H と同じだが，16進数として変換 

34 H 

符号なし整数値 

—10 進変換 

A X レジスタにバイナリ数 （0— FFFFH ) を入れて，よぶ 

と，バッファにアスキー表現の数字 （ 0〜 65535) を格納する。 

パ' ッファのポインタは B X レジスタである。 

CX レジスタに文字数を出力する。 
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D I 


35 H 


36 H 


37 H 


38 H 


機 能 


テキストアドレス 
—行番号書き換え 


テキストから1項目抽出 
( S 己号化して抽出） 


指定行番号をもつテキスト 
アドレスの取得 


= 37 H と同じ 


使用法 • 注意点 


テキスト中の飛び先等の実アドレス（内部表現の ODH 2バ 
イト数字）をすベて行番号に書き換える。 

6 D 6 H に0を入れる。 6 D 6 H は，テキスト内がすべて行番号 
に書き換えられたかどうかのフラグ。 


6 EA , 6 EBH にテキストアドレス。 
出力は AL 。 


A し 

意 味 

〇 

0 OH(Null)REM 文，文のおわり 

1 

OAH (LF) ラインフィ - ド . *( ダブルクオテ - シヨン ) 内をスキップする。 

2 

01H 〜 09H で表わされた空白 

3 

OBH xx xx 8 進数 

4 

OCH xx xx 16進数 

5 

ODH xx XX アドレス 

6 

OEH xx xx 行番号 

7 

OFH xx 彳〇~ 255 の整数 

8 

漢字シフト 

9 

2バイト整数 

A 

4 バイト単精度 

B 

8 バイト倍精度 

C 

変数名 

D 

ステートメント 

E 

関数 


6 EA , 6 EBH は次の項目をさす。 


6 EA , 6 EBH に行番号の先頭をささせる c 
出力は， BX レジスタにアドレス。 


出力は， BX レジスタにアドレス c 


39 H 


3 AH 


テキストの サーチ 


入力 A X レジスタに行番号（バイナリ） 

出カキャリーフラグ…1そのような行番号はない…〇有 
る0アドレスは BX レジスタに入っている。 


数式存在のチェック 


6 EA , 6 EBH にテキストアドレス。 
出カキヤリーフラグ…1数式はない 
0数式はある 
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D I 

機 能 

使用法 • 注意点 

3 BH 

CRT への表示 

セグメント 60 H , オフセット202 H 〜のバッファの文字を， 

CX レジスタで示される文字数だけ出力。 

リモート B AS I C プロトコルなど含む。 

3 CH 

CRT への表示（無条件） 

上記と同じだが，必ず CRT へ出力する。 

3 DH 

1文字 CRT へ表示 

AL レジスタの内容を CRT へ出力する。 

3 EH 

カーサのリセット 

カーソルを行の左はしにもってくる。 

3 FH 

CR , LF の出力 

リモート B AS I C プロトコルを含む。 

40 H 

CRT へ CR , : LF 出力 

無条件に CRT に C R , L f を出力する 

41 H 

CRT カーサのリセット 

CRT のカーソルを行のはしにもってくる。 

42 H 

符号なし整数化 

F AC = I NT ( FAC ) …〇〜65535 

43 H 

添字評価 

添字が範囲外ならエラーを出す。 

(6 EA , 6 EBH に添字の部分のテキストアドレス） 

出力： BP レジスタに配列の対応する部分のオフセットアド 

レスが入っている。 

44 H 

ストリングエリアのゴミ集め 

ガベージコレクシヨンをする。 

45 H 

符号なし整数の実数化 

FAC = CSNG ( FAC ) 

(D I =42 H の逆）し 0 —65535 

46 H 

XXXXX^ 表示 

(行番号） 

XXXXX (行番号）の部分を AX レジスタに入れる。 

47 H 

文の読みとばし 

マルチステートメントの1文を読みとばす。 

(6 EA , 6 EBH にテキストアドレス） 

48 H 

DATA 文の読みとばし 

6 EA , 6 EBH に DAT A 文の Top アドレスを入力すると， 

6 EA , 6 EBH に次の行の Top が出力される。 

49 H 

文字列定数の読みとばし 

6 EA , 6 EBH に1ここをポイントさせる 0 

“文字列”： 

^—出力はここ 

4 AH 

数式の評価 

及び結果の整数化 

6 EA , 6 EBH に評価すべき数式の Top アドレスを入れる。 

FAC に出力される。 

4 BH 

キー，タイマ割り込みのセ 

ンス 

キー入力やタイマ割り込みをセンスし，フラグをたてる。 

4 CH 

COM , PEN 割り込みの 

センス 

RS -232 C やライトペン割り込みをセンスし，フラグをたて 

る。 
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D I 

機 能 

使用法 • 注意点 

4 DH 

1 行トランスレート 

7 

る 

’スキーで書かれた1行のテキストをバイナ 

’ 0 

^-長さ バイ ト数 CX - 、 

リ表現にかえ 

アスキーの 1 行 

T 

〔1406 H 〕 

テキスト内に出力される。 


4 EH 

メモリスイッチの内容取得 

入力 B X ( E 2, E 6, EA , EE , F 2, F 6, FA , FE ) 

SW 12345678 

出力 AL 

4 FH 

未実装 RAM 

アクセスチェック 

AX レジスタにオフセット 

750, 751 H にセグメント 

で指定したアドレスに. RAM があれば，何もせずに戻るが， 
RAM がなければ， 

Illegal function call 

を表示して，コマンド待ちになる。 

50 H 

ストリングエリアの割り付 

け 

CX レジスタに文字列の長さ（<255)を入れて，呼ぶと， 
その分をストリングエリアに確保してくれる。 

もし，空エリアがなければ， 

Out of string space 
のエラーが出てコマンド待ちになる。 

ストリングエリアのポインタは 6 B 4, 6 B 5 H です。 

51 H 

キーワードのサーチ 

6 EA , 6 EBH にテキストアドレスを入れて， AL に捜したい 
キーワードを入れておくと， 6 EA , 6 EBH にそのキーワード 
のあるアドレスを入れて帰る。 

ないときは， AL レジスタに0が入っている。 

52 H 

: 

キーボードより1行入力 

バッファは， 202 H 〜302 H です。 

最後の2バイトにエンドマークとして ODH , 0 AH がっけ加え 
られる。 
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付録 - 3 

ワークエ 1 」アー覧表 


ワークエリアー覧表 

(1) システム共通域セグメント〇 :オフセット 500 H 〜 5 F F H 


アドレス 

機能•用途 

500 

B I OS 制御フラグ 

bit 3 V SYNC 通知 

bit 4 拡張 RAM 有 (1), 無 (0) 

bit 5 キーボードオーバフロー 

bit 6 D I SKB AS I C のとき0 else 1 

bit 7 スタートタイプがウォームスタート (1), コールド (0) 

501 

メモリサイズ 

〇… 128 KB (未拡張） 

1… 256 KB 

2… 384 KB 

3… 512 KB 

4… 640 KB 

502〜521 

環状キーバッファ。 

キーコードとして格納するので，2バイトで1文字です。 

522, 523 

キーコード変換テーブルアドレス（オフセット） 

キーコードを J I S 8単位コードに変換するときに使用する。 

524, 525 

キーバッファ•ボインタ 

526, 527 

キーバッファ • 最終アドレス+1 

528 

キーバッファ文字数 

529 

キーボード入力制御におけるエラー•リトライ回数 

52 A 〜539 

入カキーコードの押下状態に対応した96ビットの表。 

「キー入力」の章の表を参照して下さい。 

53 A 

特殊キーの押下状態 

bit 0-| SH I FT | bit 1 -| CAP | 
bit 2-| カナ | bit 3-| GRAPH | 

bit 4-| CTRL | 

53 B 

CRT 行単位、ラスタ数一 1 
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アドレス 

機能•用途 

53 C 

CRT 状態フラグ 

bit 0…ラインモード 〇 : 25行，1:20行 

bitl …カラムモード 0:80カラム，1:40カラム 

bit 2 …アトリビュートタイプ 1:バーティカルライン有効 

bit 7… CRT タイプ 0 : 80 CRT ， 1: 88 CRT 

53 D 

B I OS 用制御カウンタ 

53 E , 53 F 

CRT-B I OS 制御に必要なコントロールブロックエリアのオフセットアドレ 

ス〇 

540， 541 

上記セグメントアドレス。 

542, 543 

CRTV 割り込みベクタ （ No .10) の退避エリアのオフセットアドレス。 

544, 545 

上記セグメントアドレス。 

546 

キャラクタジェネレータから読み出す文字フォントパターン 

bit 0-7 XII (0), 6 X 7 ( 1 ) 

bitl … ANK (0), 漢字 （ 1 ) 

547 

GDC に設定するスクロールエリアの個数 

548, 549 

表示画面 VRAM 上の開始アドレス（オフセット） 

54 A , 54 B 

上記セグメントアドレス 

54 C 

グラフィック画面の CRT 状態 

bit 6-0 ：80 CRT , 1： 88 CRT 

bit 7…〇 :表示中，1:表不停止中 

54 D 

G D C ドット修正モード 

bitl : bitO 10進 

00 0 REPLACE 

01 1 COMPLEMENT 

10 2 CLEAR 

1 1 3 SET 

54 E , 54 F 

GDC の線種パターン（ラインスタイル） 

550〜555 

GDC のグラフィック文字パターン 

556， 557 

RS —232 C 受信バッファ先頭アドレス（オフセット） 

558, 559 

上記セグメントアドレス 

55 A 

ODA 系プリンタのシフト状態をあらわす。 bitO …0 : SO ， 1 ： S I 

bitl …〇 :無シフト，1:シフト 

bit 2-0 :割り込み無，1:有 
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アドレス 


55 B 


55 C 


55 D 


55 E 


機能 


用途 


RS —232 C の受信データシフト状態 

I S I / SO コード変換する （1), しない（〇 
i シフト状態 SI (0), SO (1) 
bit 2 …チヤンネル2のシフト状態 
bit 3…チヤンネル1 
bit 4…チヤンネル0 

bit 5…チヤンネル2の S I / SO コード変換 
bit 6 •••千 ヤンネル1 
bit 7…チヤンネル0 


フロッピーディスク装置接続状況 
(ビットがたっているとき接続されている） 

物理ドライブ 論理ドライブ 
bit 0 0 1 


bitl 
bit 2 
bit 3 
bit 4 
bit 5 
bit 6 
bit 7 


8 インチ 


5 インチ 


5 インチハードディスク装置接続状況 

物理ドライブ 論理ドライブ 

bit 0 0 1 

bit 1 1 2 


8インチフロッピーデイスク割り込みフラグ 

物理ドライブ 論理ドライブ 


bitO 
bitl 
bit 2 
bit 3 


0 
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アドレス 

機能•用途 

55 F 

5インチハードディスク割り込みフラグ 

物理ドライブ 論理ドライブ 

bit 0 〇 1 

bit 1 1 2 

560 

5インチフロッピーディスク装置のタイプ 

〇〇:未接続 

EF :両面 

FF :片面 

561 

5” フロッピーディスク両面装置のときのオペレーシヨンモード 

[0 :片面処理モード 

bitO …物理ドライブ〇が 

11:両面処理モード 

bit 1…物理ドライブ1 

bit 2…物理ドライブ2 

bit 3 …物理ドライブ3 

562， 563 

タイムアウトチェック用カウンタ （ 5インチフロッピーディスク） 

00 :無条件ウェイト 

その他 ： xl msec のウェイト 

564〜583 

ディスクリザルト 0 フロッピーディスク割り込み情報 

564 H -56 BH ドライブ〇 

56 CH -573 H ドライブ1 

574 H -57 BH ドライブ2 

57 CH -583 H ドライブ3 


+ 0 

STO 

+ 1 

ST 1 又は PCN 

+ 2 

ST 2 

+ 3 

C シリンダ No .(0〜76) 

+ 4 

H へッド No .( 〇~1 ) 

+ 5 

R . セクタ No .( 1〜 26) 

+ 6 

N セクタ内データ長 （ 0〜3 ) 

+ 7 

現在のシリンダ No .(0~76) 
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アドレス 

機能•用途 

584 

システムデイスクのアドレス 

bit 0 〜 bit 3 UA 

bit 4 〜 bit 7 DA 

585 

5インチハードデイスクから送られる Complete ステータスバイト。 

(B I 0 S でのみ使用している） 

bit 0 . パ リティーエラー 

bit 1 . エラー 

bit 5 〜 7 … LVN 

586 〜 589 

5インチハードディスクコントローラから送られてくるエラー発生時の R esu h 
センスバイトを格納する 

+ 0 センスバイト 

+1 00 d 論理アドレス （ H ) 

+ 2 論理アドレス （ M ) 

+ 3 論理アドレス （ L ) 

58 A , 58 B 

タイマ B I 0 S で使用。 

0 上位指定されたインターバルタイマ値 

0 タイムアウト毎に減算するカウンター 

58 C , 58 D 

未使用 

58 E 〜 5 BF 

グラフィック BI OS / L I 0の PA I NT 処理高速化制御用エリア。 

次の PA I 1^丁行の0 0(：コマンドをスタックするエリア。 

GDC 描画タイミングと GDC コマンド作成の CPU タイミングとを並行処理する 

ことによって高速化している。 

5 C 0 

ディップスイッチのコピーイメージ 

bit 0-0 : N-BAS I C (86), 1: N 88 -BAS I C (86) 

bitl …0 :ターミナルモード， 1 •• BAS I C モード 

bit 2 …〇 : 80文字モード， 1: 40文字モード 

bit 3…0 : 25行モード， 1: 20行モード 

bit 4-0 : メモリ SW 有効， 1:無効 
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アドレス 

機能•用途 

5 C 1 

受信した DEL コードの扱いを指定する。 

bit 〇-〇 :そのままにする 

1:メモリ呂界3の1^7に従う 

メモリ SW 3 の bit 7の意味は， 

0 : DEL コード1 

に変換する 

1 •• NUL コード1 

5 C 2, 5 C 3 

GP I B B I OS と CALLER との通信域のオフセットアドレス。 

5 C 4, 5 C 5 

上記セグメントアドレス。 

5 FE , 5 FF 

BASIC LI 0のデータセグメントアドレス（通常 60 H ) 


437 













(2 )B AS 1 C L I 0 ワークエリアセグメント 60 H :オフセット〇〜 1 CFF 


アドレス 

機能•用途 

〇〜201 

0 は ， I NKEY $1 バイトバッファ 

PR I NT 文1行出カバッファ。2バイトで1文字。 

202-24 F 

I NT 59 〜61の文字出カバッファ。1バイトで1文字。 

314, 315 

テキスト VRAM 1行目の TOP アドレス 

316 

1行目のアトリビュート 

317 

80 H 以上…1行目と2行目がつながっている。 

80 H 未満…1行目と2行目がつながっていない。 

318， 319 

31 A 

31 B 


' 2行目のアトリビュート 

31 C , 31 D 

31 E 

31 F 


• 3行目のアトリビュート 

320， 321 

322 

323 


' 4行目のアトリビュート 

324, 325 

326 

327 


' 5行目のアトリビュート 

328, 329 

32 A 

32 B 


' 6行目のアトリビュート 

32 C , 32 D 

32 E 

32 F 


，7行目アトリビュート 

330, 331 

332 

333 


' 8行目アトリビュート 

334， 335 

336 

337 


^ 9行目アトリビュート 

338, 359 

33 A 

33 B 


>10行目アトリビュート 
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アドレス 

機能•用途 

33 C , 33 D 

33 E 

33 F 


11 行目アトリビュート 

340, 341 

342 

343 


12行目アトリビュート 

344, 345 

346 

347 


13行目アトリビュート 

348, 349 

34 A 

34 B 


14行目アトリビュート 

34 C , 34 D 

34 E 

34 F 


15行目アトリビュート 

350， 351 

352 

353 


16行目アトリビュート 

354, 355 

356 

357 


17行目アトリビュート 

358, 359 

35 A 

35 B 


‘18行目アトリビュート 

35 C , 35 D 

35 E 

35 F 


‘19行目アトリビュート 

360, 361 

372 

363 


20行目アトリビュート 

364, 365 

366 

367 


>21行目アトリビュート 
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アドレス 


368， 369 
36 A 
36 B 


36 C , 36 D 
36 E 
36 F 


370, 371 

372 

373 


374, 375 

376 

377 


機能•用途 


22 行目アトリビュート 


23行目アトリビュート 


24行目アトリビュート 


25行目アトリビュート 


378〜42 B 


ファンクシヨンキーバッファ 

378 H 〜389 H F.lload 


38 AH 〜 39 BH F • 2 auto 
39 CH 〜 3 ADH F • 3 go to 
3 AEH 〜 3 BFH F • 4 list 
3 C 0 H 〜 3 D 1 H F • 5 run c R 
3 D 2 H 〜 3 E 3 H F • 6 save ” 
3 E 4 H 〜 3 F 5 H F • 7 key 
3 F 6 H -407 H F - 8 print 


408 H -419 H F - 9 edit . C R 
41 AH -42 BH F .10 cont C R 
各 キーバッファ 


+ 0 

状態フラグの窓 

[ 80 H …… ファンクシヨン キーとして使う 

20 H ……キー割り込みとして使う 

1 00 H ……無視せよ。 

+ 1 

格納文字数 

+ 2 H 0 H 

文字 バッファ 

+ 11 H 

00( 区切り） 


440 






























アドレス 

機能•用途 

430, 431 

画面の上限(通常0000 H ) console の第1引数 

432, 433 

画面の下限（通常0017 H ) 

434, 435 

画面をクリアするときの文字（通常002 0 H 空白） 

436, 437 

カーソル y 座標 (25 行時〇〜24, 20行時〇〜 19) 

438, 439 

カーソル X 座標 

43 A 

画面をクリアするときのアトリビュートの値。 

(通常 E 1 H ) 

43 E ， 43 F 

COLOR ® 第2引数 

440, 441 

COLOR ® 第1引数 

442, 443 

COLOR © 第4引数 

444, 445 

COLOR ® 第3引数 

449 

bit 1…ファンクシヨンキー表示スイッチ 

bit 7 …カーソルスイッチ 

44 A 

割り込みフラグ 

451 

モニタモードフラグ 

460, 461 

画面の幅， 1 行の文字数 

474 

I NPUT 処理のときのフラグ 

4 A 6 

プリントルーチンの文字カウンター 

4 A 8 

ラインアトリビュートワークエリア 

4 E 0 〜 4 FF 

キー入カバッファ 

503 

ディスク台数 

504 

ファイル同時オープン数 （0〜 FH ) 

How many files [ 0 〜 15) ? 

に答えたときの値。デフオールトは， 2 

505 

SRV 種別 

1… Nss—BASIC (86) 

2…5インチフロッピーディスク1ドライブ1 ,、 

N-BAS I C (86) 

3…5インチフロッピーディスク2ドライブ 1 

506, 507 

ディスク P I 0バッファ先頭オフセット 

508, 509 

DCB 群先頭オフセット 

50 A , 50 B 

FCB 群先頭アドレス 

50 C , 50 D 

FAT バッファ先頭アドレス 

50 E , 50 F 

ディスク定数テーブル先頭アドレス 

514 〜 51 D 

キー コー ドバッファ 
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アドレス 

機能•用途 

570〜 5 BF 

文字列転送バッファ 

5 C 6 

F - 1の状態フラグ 


5 C 7 

F - 2の状態フラグ 




5 C 8 

F ， 3の状態フラグ 


8〇…ファンクションキー 

2 〇…キー割り込み ON 

0 〇…ファンクションキーを無視する 


5 C 9 

F . 4の状態フラグ 

5 CA 

F * 5の状態フラグ 

5 CB 

F - 6の状態フラグ 


ファンクシヨンキーフラグの窓に書かれたフ 


5 CC 

F - 7の状態フラグ 

ラグの値は，ここに格納される。 

5 CD 

F - 8の状態フラグ 

5 CE 

F . 9の状態フラグ 

5 CF 

F . 10の状態フラグ 

620 

スクリーンモード 

622 

デイスプレイページ 

623 

フォアグラウンドカラー 

624 

バックグラウンドカラー 

626 

カラーパレット0のカラーコード 

627 

カラーパレット1のカラーコード 

628 

カラーパレット2のカラーコード 

629 

カラーパレット3のカラーコード 

62 A 

カラーパレット4のカラーコード 

62 B 

カラーパレット5のカラーコード 

62 C 

カラーパレット6のカラーコード 

62 D 

カラーパレット7のカラーコード 

62 E 〜635 

VIEW の引数 

アドレス 

640 H 〜 668 H はグラフイック B I OS 用3マンド指定バッファです。 

640 

カラーパレットを設定する 

下位3ビットに色の情報をかき込む 

〇…黒，1…青，2…赤，3…紫，4…緑，5…水色 

6 •.•黄，7 •••白 

641 

ボーダーカラーを設定する 

00…黒，10…青，20…赤, 30…紫，40…緑 

50…水色，60…黄，70•••白 

642 

1つのブレーンだけを処理するときのモード 

〇…おきかぇ，1… XOR ， 2… NOT , 3 … OR 
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アドレス 


機能 


用途 


描画方向の指定。 


644-647 


カラー パ レット 番号と カラーコー ドの対応 



上位4ビット 

下位4ビット 

644 H 

6 

7 

645 H 

4 

5 

646 H 

2 

3 

647 H 

0 

1 


648, 649 
64 A , 64 B 
64 C , 64 D 
64 E , 64 F 
650， 651 


652， 653 


654, 655 


656, 657 
658, 659 
65 A 

65 C , 65 D 
65 E , 65 F 


描画始点の X 座標_ 

描画始点の Y 座標_ 

何ドット描くかのドット数_ 

描画パターンバッファの先頭オフセットアドレス 
描画パターン読み出しバッファの先頭オフセット 
(プレーン1，4用） 

描画パターン読み出しバッファの先頭オフセット 
_ (ブレーン2,5用）_ 

描画パターン読み出しバッファの先頭オフセット 
_ (ブレーン3,6用）_ 

LINE の終点の X 座標_ 

LINE の終点の Y 座標_ 

マスキングドット数_ 

円の半径_ 

フォントパターンの（たて方向のドット数）一1 


8 X 8のときは0 
660，661 ラインスタイル 

662〜667 8 X 8ドットグラフイック文字基本パターンバッファ。 


668 描画タイプ 


1…直線，2…矩形，4…円孤 
669-69 F グラフイック B I OS 用汎用ワークエリア 


6 A 2, 6 A 3 配列データセグメントのセグメントベース （ a ) 
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アドレス 


6 A 4, 6 A 5 


6 A 6, 6 A 7 


6 A 8, 6 A 9 


6 AA , 6 AB 


6 AC , 6 AD 


機能 


用途 


テキスト先頭アドレス （ t : 


テキスト最終アドレス （t 3 ) 


未使用テキストエリア END ( t 5 ) 


システムスタックの上限- 


データスタックの上限- 


i データスタック 


i システムスタック 


フリーエリア 


00 

00 


テキスト 


-(6 E 6, 6 E 7) 
一 (t5) 


掘 


6 AE , 6 AF 


6 B 0, 6 B 1 


6 B 2, 6 B 3 


6 B 4, 6 B 5 


シンボルテーブル先頭オフセット (100 H ) 


シンボルテーブル最終オフセット （SO 


ストリングエリア END ( S 5 ) 


ストリングエリアポインタ （ S 4 ) 


v ストリングエリア 
フリー 

シン ポルテ ーブル 


个 


:リア 


256バイトワーク 


-S 5 
-S4 


-S1 

変数名が 
格納される 
-100 H 


6 B 6 〜 6 CF 


6 D 0, 6 D 1 


それぞれ頭文字が A ， B ， C , D , Y , Z の変数の型 
DEF I NT ( SNG , DBL , STR ) で決定した値 


配列ポインタ （ a ] 


フリー 


配列 データ 


—a 1 


6 D 2 


T R 0 N フラグ 

0 : TROFF , 1 : TRON 


6 D 3 


AUTO フラグ 


6 D 4 

6 D 5 

6 D 6 


0 : OFF , 1: ON 

エラーフラグ （ RESUME でクリアされる） 


テキスト内の飛び先アドレスなどが，すべて行番号の状態になっている 


6 D 7 

6 D 8, 6 D 9 
6 DA , 6 DB 
6 DC , 6 DD 


(そのとき0 ) 
ブロテクトフラグ 
添字の下限 。 OPTION 
AUTO 行番号発生レジスタ 
AUTO の増分 


BASE で設定したもの。 
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アドレス 

機能•用途 

6 DE , 6 DF 

エラーが発生して止まったときの行番号。 


〜エラー in XXXX で使用する 
个 1 

6 E 0, 6 E 1 

最後にエラーのおこった行番号0エラーが発生すると， 6 DE , F の値をここにコピー 

する （ ERL ) 

6 E 2 

エラー番号 （ ERR ) 

6 E 3 


6 E 4, 6 E 5 

実行中の行番号。ダイレクトモード時 FFFFH 。 

6 E 6, 6 E 7 

データスタック ボイ ンタ。 

GOSUB , FOR , WH I LE のための戻り先，ループ回数カウンタ等の記憶ス 

タック0 

6 E 8, 6 E 9 

実行中のテキスト内アドレス 

6 EA , 6 EB 

実行中のテキスト内アドレス0 

インタプリタがコマンドを解析して各処理ルーチンに入いるとき，コマンドをさし 

ている。 

インタプリタ内ルーチンの利用 （INT C 4 H ) の各処理ルーチンへのポインタ 

として使用されている。この場合，次のアイテムのアドレスが S I レジスタに入って 

戻ってくる。 

6 EC , 6 ED 

次の行の先頭アドレス 

6 EE , 6 EF 

6 EC , 6 ED のコピー 

6 F 0, 6 F 1 

データスタック処理ルーチンのワークエリア 

6 F 2 


6 F 3 


6 F 4 


6 F 5 


6 F 6 


6 F 7 


6 F 8, 6 F 9 

実行中の行の先頭 

6 FA , 6 FB 

実行中のステートメントの先頭 


(例） PRINT “ OK ” 

f 


T 

ここをさしている 

6 FC , 6 FD 

データスタックのコピー 

6 FE 

解析ルーチンのワーク 
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アドレス 

機能•用途 

702, 703 

ON STOP GOSUB フラグ 

704, 705 

ON STOP GOSUB の飛び先アドレス 

706， 707 

ON KEY GOSUB フラグ 

708 〜 72 D 

ON KEY GOSUB の飛び先アドレス 

72 E , 72 F 

ON HELP GOSUB フラグ 

730, 731 

ON HELP GO SUB の飛び先アドレス 

732, 733 

ON TIME GOSUB フラグ 

734, 735 

ON TIME GOSUB の飛び先アドレス 

736, 737 

ON PEN GOSUB フラグ 

738, 739 

ON PEN GOSUB の飛び先アドレス 

74 C -74 F 

R ND の前の値 

750, 751 

DEF SEG = で指定したセグメント 

756, 756 

READ のポインタ 

758, 759 

READ のワーク 

766 

OPTION BASE 使用フラグ 

1 


A 00, A 01 

間接 JMP , CALL 用 バッファ 

A 02, A 03 

インタプリタ内サブルーチンの利用 （ I N T C 4 H ) のジャンプべクトルのある 
オフセツトアドレス 

A 04, A 05 

上記のセグメント.アドレス 

A 66 〜 

キー コー ド 変換 テーブル 

A 8 A , A 8 B 

タイマーのカウンター 

i 


B 8 F - C 8 C 

文字列 

+ 0 

+ 1 

文字数1バイト 

文字列 
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アドレス 

機能•用途 

B 8 F 〜 B 91 

C R l f キヤリジリターン.ラインフィード 

B 92 〜 B 97 

Break 

B 98 〜 B 9 A 

て 

B 9 B - B 9 D 

で 

B 9 E 〜 BAE 

rerminal mode C r L f 

BAF 〜 BBD 

Disk Version c r l f 

BBE-BDE 

NEC N -88 BASIC (86) version 1.0 C R L F 

BDF 〜 BEC 

Bytes free c r l f 

BED 〜 BFF 

? Redo from start c r L f 

C 00 〜 C 02 

? 

C 03 〜 COB 

ESCK ! ) ! ! ESCH 

C 0 C 〜 C 11 

Skip : 

C 12- C 19 

Found 1 

C 1 A - C 20 

Bad C r L f 

C 21- C 30 

Undefined line 

C 31 〜 C 38 

KW= c r l f 

C 39- C 48 

0123456789 ABCDEF 

C 49 〜 C 5 F 

How many files (0—15) ? 

C 60 〜 C 65 

Ok c R l f 

C 66 〜 C 8 C 

Random number seed (一 32768 to 32767) ? 

1000 —11 FFH の 512 バイトはグラフィック L I 0 作業領域です。 

1000,1001 

DS SAVE エリア 

1002,1003 

SS SAVE エリア 

1004,1005 

SP SAVE エリア 

1006,1007 

BX SAVE エリア 

1 


1110-11 FF 

グラフイックパターン読み込みバッファ等に使用 

1 
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141 E 


141 F 

FA Cl の符号 … bit 7 


アドレス 

機能•用途 

1380 H 〜 13 F 

FH (128 バイト）は G COPY 用作業領域です。 


1400, 1401 


1412，1413 

- - - 1 _ 

テキスト VRAM のセグメント ( A 000 H ) 

1414 

FAC の型 

1415 

bit 7 … F A C の符号 


1402, 1403 

実装 RAM 終端セグメント （ h ) 

1404，1405 

ユーザー機械語プログラムエリア 

先頭のセグメント （ m ) 

1406,1407 

CRT 出カバッファの先頭オフセット 

(通常202 H ) 

1408,1409 

中間言語ノ《ッファポインタ（通常1 B 00 H ) 

140 A , 140 B 

キーワードインデックステー 

ブル先頭オフセットアドレス 

140 C , 140 D 

上記セグメントアドレス 

140 E , 140 F 

テキストエリアのセグメント （t ) 

通常 60 H 。 


1410, 1411 


1416 〜 141 D 


デイスクコードの先頭セグメント 


シンボルテーブルセグメント （s ) 


(6 A 2、3)- 


00000 


機械語 

プログラム 

セグメント 


配列データ 
セグメント 


シンボル 

テーブル 

セグメント 


DISK CODE 


テキスト 
セグメント 


システムエリア 


FAC (Floating Accumulator ) 


倍精度 

小 - 


単精度 


整数 


6 7 8 9 A 
4 4 4 4 


4 4 4 4 
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1420 〜 1427 FAC 1 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 


1429 8087スイッチ 


14AE 〜 14D5 


USR 関数の処理アドレスべクタテーブル 


4-0 
+ 1 
+ 2 
+ 3 


オフセットアドレス 


セグメントアドレス 


14AE 〜 14B1 … U S R0 
14B2 〜 14B5 … USR1 
14B6 〜 14B9 … USR2 
14BA 〜 14BD … USR3 
14BE 〜 14C1 … USR4 
14C2 〜 14C5 … USR5 
14C6 〜 14C9 … USR6 
14CA 〜 14CD … USR7 
14CE 〜 14D1 … USR8 
14D2 〜 14D5 … USR9 


14D6 


AUTO で同じ行番号があるかのフラグ。あれば， * を表示する。 


14E2 


オーバーフロー， 〇除算 エラーの フラグ 


14ED 


WINDOW 使用フラグ 


14 E E 〜 14F D 


WINDOW の引数。単精度で格納される。 


14FE 〜1501 


POINT の座標 


1502〜1509 


WINDOW, VI EW の横，縦の倍率（単精度） 


7 ドレス 


機能 


用途 


倍精度 


単精度 


整数 
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アドレス 

機能•用途 

150 A 〜 

グラフィックルーチンワーク 

152 A 

ファイル テ、 ノスク11プ々 DISK -.0， CMT ...1， COM -..2 
ノア"！ ノレアイ人ノ " ッ LPT ...3, SCRN ...4, KYBD -5 

152 B 

ドライブ番号 

152 C 〜1534 

ファイル名 152 C 〜15316文字のファイル名 

1532〜1534拡張子 

1535 

FCB のモード 〇…アスキー，2:プロテクト 

1536 

ファイル番号 

1538 

ファイルオーブンフラグ 

153 A 

WIDTH LPRIN 丁 

154 B 

CRT に表示させないフラグ 

154 C ,154 D 

オーブンフラグ （ TERM ) 

154 E ,154 F 

変数のオフセットアドレス 

1550, 1551 

変数のセグメントアドレス 

1582，1553 

ストリングスペースの限界 

1584,1585 

使用済みストリングスペース 

1586, 1587 

FN 関数の仮引数名テーブル定義ポインタ 

1590 

オーブンフラグ （ TERM ) 

i 


1593 

拡張命令があるかのフラグ0 :無，1:有 

1594 

NEW ON 文実行フラグ 

1598, 1599 

ジャンプテーブル（オフセット） 

159 A , 159 B 

ジャンプテーブル（セグメント） 

159 C , 159 D 

拡張コマンド処理ルーチンのオフセット （ CMD 等） 

159 E , 159 F 

上記セグメント 

15 A 0, 15 A 1 

拡張コマンド（関数）処理ルーチンのオフセット 

( IEEE , STATUS ) 

15 A 2, 15 A 3 

上記セグメント 

15 A 8, 15 A 9 

CONSOLE 第1引数 

15 AA ,15 AB 

CONSOLE 第1引数+第 2 引数 
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アドレス 

機能•用途 

i 


1800〜1803 

リストの速さ 

1 


1820 

LOAD 後 RUN するかのフラグ 

1824 

0:アスキーセーブ，2:プロテクトセーブ 

182 A , B 

BSAVE や SAVE で SAVE するエリアの先頭オフセット 

182 C , D 

BSAVE や SAVE で SAVE するエリアの最終オフセット 

1833 

SAVE するバイト数 

i 


1840 

プリントアウト先 

3:プリンタ 4 ： CRT 

その他：ディスク， RS -232 C ( OPEN で開いた先） 

1842, 1843 

プリントバッファポインタ 

S 


1898〜 

PRINT US ING 用編集バッファ 

18 A 0 〜 18 B 7 

アスキーコードに直した数値の出カバッファ 

18 D 0 〜 18 E 7 

アスキーコードに直した数値の出カバッファ 

1 A 00, 1 A 01 

AUTO 処理ルーチン用， AUTO で発生する行番号 

1 A 02, 1 A 03 

AUTO 処理ルーチン用， AUTO の増分 

1 A 08, 1 A 09 

モニタの SP の SAVE エリア 

1 A 14, 1 A 15 

モニタの SS の SAVE エリア 

1 A 1 C .1 A 1 D 

1行の文字数 

1 A 1 E .1 A 1 F 

DS の SAVE エリァ 

1 A 20, 1 A 21 

SS の SAVE エリァ 

1 A 22, 1 A 23 

SP の SAVE エリァ 

1 A 24, 1 A 25 

h ] CXXXX の値 

1 A 5 D,E 

モニタのスタートセグメント値 

i 


1 B 00, 1 

ダイレクトモードで入力した中間コードのバッファ数 

1 B 02, 3 

FFFFH (行番号） 

1 B 04 〜 1 BFF 

ダイレクトモードで入力したステートメントの中間コードバッファ 

1 C 00 〜 1 CFF 

ダイレクトモードで入力した文字列を一時格納するバッファ 
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⑶ シン ホルアーブルェリアのオフセット〇 〜 F F H のワークエリァ 


アドレス 


〇, 


:, 5 


3 C 〜 6 F 


機能 


用途 


ラベルテーブル先頭アドレス 


単純変数 テーブル 先頭 アドレス 


配列変数べクタテーブル先頭アドレス 


頭文字 A , B , C , …， Y , Z の変数のあるオフセットアドレス 


3 C , 

D … A 

4 A , 

B … H 

56, 

7 … .N 

64, 

5 … .U 

3 E , 

F … B 

4 C , 

D …I 

58， 

9—*0 

66, 

7 ….V 

40， 

1 … .C 

4 E , 

F … J 

5 A , 

B … P 

68, 

8 … .W 

42， 

3 … -D 

50, 

卜 "K 

5 C , 

D … Q 

6 A , 

B …X 

44, 

5 … .E 

52, 

3 … .L 

5 E , 

F … R 

6 C , 

D … Y 

46, 

7… • F 

54, 

5 … -M 

60, 

1 … .S 

6 E , 

F … Z 

48, 

9 … -G 



62, 

3 … .T 




7〇, 71_単純変数エリアの大きさ 

72, 73 0000 H 


74〜 A 7 それぞれ頭文字が A , B , C , …， Y , Z の配列名をもつ配列群の最終アドレス 


(下図) 


A 

B 

… 

Z 

/ 

、 / 

V 



(72, 73) 
=0000 H 

(74,75) 

(76.77) 


( A 6, A 7) 


74, 

75 … A 

8 E , 

8 F … N 



76, 

77 … B 

90, 

91…〇 



78, 

79…0 

92, 

93 … P 



7 A , 

7 B … D 

94, 

95…〇 



7 C , 

7 D … E 

96, 

97…尺 



7 E , 

7 F … F 

98, 

99 … S 



80, 

81 ."G 

9 A , 

9 B … T 



82, 

83…11 

9 C , 

9 D … U 



84, 

85 …I 

9 E , 

9 F …V 



86， 

87 … J 

A 0, 

A 1 … W 



88， 

89…尺 

A 2, 

A 3 …X 



8 A , 

8 B … L 

A 4, 

A 5 … Y 



8 C , 

8 D … M 

A 6, 

A 7 … Z 
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付録- 4 

I /〇 ポー トー覧表 


ボートアドレス 
16進|10進 


〇〇 H 0 マスター割り込みコントローラ（バ PD 8259 A ) (スレーブの I /〇ポートは 08 H ，0 AH ) 


イニシャライズ.コマンド.ワード.フォーマット 
ICW 1 


OUT 


d 7 

〇6 

D 5 

d 4 

d 3 

d 2 

D , 

D 0 

〇 

0 

0 

1 

LTIM 

0 

SNG し 

IC 4 


ICW 1 〜 ICW 4 の 
順で OUT する 
ICW 2 〜 ICW 4 は 
I/O ボート0 2 H 


て通常， 


LT IM 


SNGL 


1レベル•トリガ入力 
0エッジ • トリガ入力 
1シングル 
〇ノットシングル 


オペ レー シヨン•コマンド•フオ ー マット 

OCW 2 


OUT 


R 

S し 

EOI 

0 

0 

し 2 

し】 

Lo 


R SL EOI 

意 味 

0 01 

011 

非特殊 E 0 I = T 7> ド 

特殊 E 0 I コマンド* 

割込終了 

101 

1 0 0 

0 0 0 

非特殊 E 0 I コマンド回転 

自動 EOI モードで回転 ( SET ) 

自動 EOI モードで回転 ( CLEAR ) 

自動回転 

111 

110 

特殊 EOI コマンドで回転* 

優先 セツト•コマンド* 

特殊回転 

010 

ノー オペレ ー シヨン 


* : 1_〇 — 1_2が用いられる 
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ボートアドレス 


内 容 


16進 10進 


し2 

し， 

し〇 


使用される旧レベル 

0 

0 

0 

0 

IR 0 

IR 8 

0 

0 

1 

1 

IR 1 

IR 9 

0 

1 

0 

2 

IR 2 

IR 10 

0 

1 

1 

3 

IR 3 

IR 11 

1 

0 

0 

4 

IR 4 

IR 12 

1 

0 

1 

5 

IR 5 

IR 13 

1 

1 

0 

6 

IR 6 

IR 14 

1 

1 

1 

7 

IR 7 

IR 15 


( IR 8 — 15 はスレーブ) 


0 CW 3 


OUT 


d 7 D 0 


0 

ESMM 

SMM 

〇 

1 

P 

RR 

RIS 


ESMM SMK / 


1 1 

1 0 

スペシャルマスクをセット 

スペシャルマスクをリセット 

0 1 

0 0 

何もしない 


P 


1 

ポールコマンド 

0 

ノーポールコマンド 


RR 

RIS 


1 

1 

旧 R リード 

1 

0 

ISR リード 

0 

1 

何もしない 

0 

0 



—ポート0 OH をリード （ IN ) 
するとき旧 R を読むか 
ISR を読むかを決める。 


IN 


IRR 

IR 7 

IR 6 

IR 5 

IR 4 

IR 3 

IR 2 

IR 1 

IR 0 

ISR 

IS 7 

IS 6 

IS 5 

IS 4 

IS 3 

IS 2 

IS 1 

ISO 


IRR を読むか ISR をよむかは、0 UT 命令で OCW 3 の Da 。 で決める。 
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ボートアドレス 






内 



容 


16 進 

10 進 


02 H 

2 

マスター 割込 コントローラ 












ICW2 







OUT 

0 

0 

0 

0 

1 

0 

0 

0 

マスター 




0 

0 

0 

1 

0 

0 

0 

0 

スレーブ（ポート 0AH) 







ICW3 







OUT 

S7 

S6 

S5 

S4 

S3 

S2 

SI 

SO 

マスター 




1 

0 

0 

0 

〇 

〇 

0 

〇 







1 

:スレ- 

-ブをもつ 

0 :もたない 




OUT 

0 

〇 

0 

0 

0 

1 

1 

1 

スレーブ（ポート 0AH) 







ICW4 







OUT 

0 

〇 

〇 

SFNM 

BUF 

1 

0 

1 

マスター 




〇 

0 

0 

SFNM 

巳 UF 

0 

0 

1 

スレーブ（ポート 0 AH ) 









f 1 : 

スペシャルフリイオスティドモード 








or INIVI 

l 0 : 

ノットスペシャルフリイオスティモード 








巳 UF = 

1 










OCW 1 







OUT 

m 7 

M 6 

M 5 

m 4 

m 3 

m 2 

M, 

M 0 

マスター 




m 15 

m 14 

M 13 

m 12 

M n 

M 10 

M 9 

M 8 

スレ ーブ（ポート 0 AH ) 







IMR リード 







IN 

m 7 

m 6 

M s 

m 4 

M 3 

m 2 

M, 

Mo 

マスター 




M 15 

M 14 

M 13 

m 12 

M n 

M 10 

Mg 

M e 

スレーブ（ポート 0 AH ) 
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457 
































































ボートアドレス 


IF H 

のつづき 


10進 


31 

のつづき 


内 


容 


CH -0 5” 固定ディスク 
C H — 1 メモリリフレッシュ 

CH — 2 8” フロッピィディスク 

CH -3 予備 

MM メモリメモリ 1許可0禁止 AH CH — 0アドレスホールド1許可〇禁止 
CE コントローラ 1禁止0許可 TM タイミング1圧縮〇通常 
PR 優先順位 1回転0固定 WS ライト選択1拡張〇遅れ 

DS DREQ アクティブ lLowOHigh KS D A C K アクティブ1 High 0 Low 


TC 0 〜 TC 3 
RQ 〇 -RQ 3 


(：110~3が丁(：に到達 
CH 0~3 がリクエスト 


〇 SI 

cso 

チヤンネル選択 



0 

0 

CH -0 



0 

1 

〇 H — 1 



1 

0 

CH -2 



1 

1 

〇 H — 3 



RB 

リクエストビット 0 リセット 

1セット 

MK 

マスクビッ t 

、 0 クリア 

1セット 

TR 1 

TRO 

転送モード 

0 

0 

ベリファイ転送 


0 

1 

ライト転送 （ I / O — メモリ） 

1 

0 

リード転送（メモリ— 

I / O ) 

1 

1 

禁止 



AT 

オートイニシャライズ 〇禁止 

1許可 


ID 

アドレス 

0インクリメント1デクリメ 

ント 

MSI 

MSO 


(注： 01 をセット 

0 

0 

デマンドモード 



0 

1 

シングルモード 



1 

0 

ブロ ック モード 



1 

1 

カスケードモー 

K 
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ポー トアドレス_ 

16進 10進 

MB 0 〜 MB 3 


内 容 


CH 0 〜3マクビットを0クリア1セット 


20 H 32 カレンダ時計/^ PD 1990 



/ 

DI 

C し K 

STB 

c 2 

c , 

Co 


D I 入カデータ CLK クロック STB ストローブ 


〇2 

c , 

〇〇 


0 

0 

0 

レジスタホールド 

0 

0 

1 

レジスタシフト 

0 

1 

0 

タイムセット及びカウンターホールド 

0 

1 

1 

タイムリード 

1 

0 

〇 


1 

0 

1 

禁止 

1 

1 

0 


1 

1 

1 



23 H 35 


25 H 
27 H 
30 H 
32 H 


37 

39 

48 

50 


注）リードデータはボート 33 H のビット0 
DMA パンク 

DMA チヤンネル2用バンクライト 
DMA チヤンネル3用バンクライト 
DMA チヤンネル0用バンクライト 
RS .232 C (パ PD 8251 A ) データボート （ IN / OUT ) 

RS 232 C コントロールポート （ IN / OUT ) 



A 19 

A 18 

A 17 

A 16 
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ボー トアドレス 


16進 


32 H 

のつづき 


10進 


50 

のつづき 


内 


容 


非同期モード 


MSB 


7 

6 

5 

4 

3 

2 

1 

0 

s 2 

S , 

EP 

PEN 

し2 

し， 

b 2 

B, 


ポ トレー I 


關モード 


X 16 


X 64 


キャラクタ長 


〇 


5ビット 


1 


6ビッ I 


7ビット 


8ビッ I 


►パリ テイイネーブル 
1:イネーブル 
〇：デイスエイブル 


ラパリティ指定 
1:偶数 
0 :奇数 

ストップビット数 


0 

1 

0 

1 

0 

0 

1 

1 

無効 

1ビット 

1士ビット 

2ビット 
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ボー トアドレス 


16進 


10進 


内 


容 


32 H 

のつづき 


50 

のつづき 


同期/モード 


SCS 

ESC 

EP 

PEN 

し 2 

し】 

0 

0 


キャラクタ長 


0 

1 

0 

1 

〇 

0 

1 

1 

5ビット 

6ビット 

7ビット 

8ビット 


パリティイネーブル 
1:イネーブル 
0 :ディスエイブル 


ベパリテイ指:$ 
1:偶数 
0 :奇数 


■4 外部同期検出 
1: SYNDET = 入力 
0 : SYNDET = 出力 


4単ーキャラクタ同期 
1:単一 SYNC キャラクタ 
〇 :ダブル SYNC キャラクタ 
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ボートアドレス 


16進 


内 


容 


32 H 

のつづき 


50 

のつづき 


コマンドインストラクシヨンの定義 （ OUT ) 


EH 

IR 

RTS 

ER 

SBRK 

RxE 

DTR 

TxEN 


送信イネーブル 
1:イネーブル 
0:ディスエイブル 

> データ.ターミナルレディ 
1: Date Terminal Ready を ON にする。 

0 •• Date Terminal Ready を OFF にする c 


—受信イネーブル 
1:イネーブル 
0:デイスエイブル 


センドブレイク•キャラクタ 
1:ブレイクキャラクタの送信 
0:通常動作 


エラ ー リセット 

1 :エラ-フラグ (PE.OE.FE) をリセッ 
0 : NO OPERATION 


-> センド要求 

1: Request to Send を ON にする。 

0 : Request to Send を OFF にする 0 


づ内部リセット 

1: 8251 をモード.インストラクシヨ: 

フオーマツトへもどす。 

0 : NO OPERATION 


—HUNT 

1: SYNC キャラクタ検出を始める。 
0 : NO OPERATION 
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32 H 

のつづき 


ボー トアドレス 


16進 


50 

のつづき 


10進 


内 


容 


ステータスの 読み出し （ IN ) 


DSR 


SYN 





Rx 

Tx 


EE 

OE 

PE 

TxE 



DET 





RDY 

RDY 


―送信レディ 
1:レデイ 
0 :ビジー 


ラ受信レディ 
1:レデイ 
0 :ビジー 


送信バッファエンブテ- 
1:エンプテイ 
0 :フル 


パリテイ エラー 
1:パリティ エラー 発生 
0 :エラーなし 


-> オーバーランエラー 

1:オーバーランエラー発生 
〇:エラーなし 


->フレミング エラー 

1:フレミング エラー 発生 
〇 :エラーな し 


— SYNC キャラクタ検出 
1: SYNC キャラクタ検出 
0:検出なし 


> Data Set Ready 
1 : Data Set Ready ON 
〇 ： Data Set Ready OFF 

/Data Set Ready 端子の) 
l 状態をモニタできます 。 i 
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ボートアドレス 


16進 


10進 


内 


容 


31 H 


49 


33 H 


51 


35 H 


53 


システムポート户 PD 8255 A のボート A 
デイッブ•スイッチ 


IN 


SW8 

SW7 

SW6 

SW5 

SW4 

SW3 

SW2 

SW1 

SW0 


システムポート " PD 8255 A のボート B 


IN 


CS 

CD 

INT3 

CRT 

IM 

EM 

カレンダ時計 




TYPE 

CK 

CK 

リードデータ 


CS RS 232 C CS 信号 

CD RS 232 C CD 信号 

INT 3 5 〃HD I NT 信号 

CRT TYPE 1640 X 400 0 640 X 200 

IMCK 内部 メモリパリティ エラー 
EMCK 外部 メモリパリティ エラー 

システム ボー ト PPD 8255 A の ポー ト C 



/ 



M 〇 


TX 

RE 

TX 

EE 


IN/OUT 

/ 

PSTBE 

BA し 

KEN 

BUZ 

RX 

RE 


MCKEN メモリチ エッ クイ ネーブル エラー 登録 1 する〇しない 

(ボート 33 H の I MCK , EMCK に登録する） 

BUZ ブザー0 ON 1〇 F F 

TXRE R S 232 C の TXRD Y による割り込みのイネーブル 

尺3232(：の丁乂£]^?丁丫による割り込みのイ ネーブル 
RS 232 C の RXRDY による割り込みのイ ネーブル 


TXEE 

RXRE 
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ボートアドレス 

16 進 

10 進 

37 H 

55 

40 H 

64 

42 H 

66 

44 H 

68 

46 H 

70 

41 H 

65 

43 H 

67 


内 


容 


OUT 37H, 92 H …ボート A … IN 

ボー ト b … IN 、にセットしている 

ボート C … OUT, 


D7 〜 • D1 

DO 

0000000 

RXRE F/F の ON/OFF (1/0) 

0000001 

TXEE F/F の ON/OFF (1 / 〇 ) 

0000010 

TXR F/F の ON/OFF ( I / O ) 

0000011 

BUZZER F/F の ON/OFF (I/O) 

0000100 

MM チェックイネーブル （ I / O ) 


プリンタインターフェース 户 PD8255A ボー ト A (IN/OUT) 

( セントロニクス） 

I N/OUT データボート 

セントロプリンタパ PD8255A ボート B (IN) 

IN bit 2 …百 Ij S Y (他のビットは don’t care) 

bit 5 •.•システムクロック 2 : 8 MHz 0 : 5 MHz 1 
セントロプリンタ PPD8255A ポート C ( I N/OUT) 


OUT 


IN 


PSTB 

0 

0 

0 

IR8 

〇 

〇 

0 



PSTB 

/ 

/ 

/ 

IR8 

/ 

/ 

/ 


PSTB … ストローブ ， I R8 … インターフェースから 8259 への 

割り込み信号フラグ。 

セントロプリンタパ PD8255 A のモード設定ボート （ OUT) 
OUT ^ 82H 

OUT [0FH … PSTB の ON 


lOEH … PSTBOFF 
j 07H … I R8 の ON 

106H … I R8 の OFF 

キーボードイ ン ターフェー スバ PD8251A 
データボート 

キーボードインターフェース PPD8251A 


(IN) 

(I N/OUT) 
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ボートアドレス 


10進 


内 


容 


43 H 

のつづき 


67 

のつづき 


モード/コマンドライ 


OUT 


OUT 


IN 


s 2 

S, 

EP 

PEN 

し 2 

し， 

b 2 

B, 




EH 

IR 

KBDE 

(RTS) 

ER 

RST 

(SBRK) 

RxDE 

RTY 

(DTR) 

TxEN 

ステー 

タスリード 

/ 

/ 

FE 

OE 

PE 

/ 

RDY 

/ 


モード 5 EH がセット 
されてい名 

コマンド 


モード 


S2S i 

ストップビット長 

00 

無効 

01 

1ビット 

10 

1.5 ビット 

11 

2ビット 


し 2 し 1 

キャラクタ長 

00 

5 ビット 

01 

6 ビット 

10 

7 ビット 

11 

8 ビット 


EP パリティ1偶〇奇 
PEN パリテイイネーブル 
1可〇不 


b 2 

Bi 

ボーレートファクター 

00 

同期モード 

0 

1 

x 1 

1 

0 

X16 

1 

1 

X64 


コマンド 

EH …無意味 IR …内部リセット1でモードライトフォーマットに戻す。 
KBDE ( RTS) … KB 送信 1 禁止 0 許可 

ER …エラーリセット1ですベてのフラグ （ PE , DE , FE ) をクリア 

RST ( SBRK ) …センドブレイクキャラクタ 

R X E •••受信.1可0不可 

RTY ( DTR ) …リトライ 1 無効 0 有効 

丁 X EN •••送信1可0不可 
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ボー トアドレス 


16進 10進 


内 


容 


43 H 

のつづき 


67 

のつづき 


50 H 


52 H 


51 H 


53 H 


55 H 


57 H 


80 


82 


81 


83 


85 


87 


ステータス 

FE …フレーミングエラー（終了で有効ストップビットが検出されない） 
OE …オーバーランエラー （ CPU が送信速度に追いつけない） 

PE •••パリティ エラー （パリティ エラー 検出） 


RDY …インターフェース信号 RDY と同じ（レデイ） 

NM I (Non Maskable Interrupt ) フリップフロップ （ OUT ) 

RAM のパリティエラーが発生したときに割り込みを発生させない。 

OUT dummy で設定される。 

NMI ( OUT ) 

RAM のパリティエラーが発生したときに割り込みを 
発生させる 。 OUT dummy で設定される。 

5インチフロッピィ デイ スクインターフェース8255 A ボート A ( IN ) 

データ 入カ ポー ト 

5インチフロッピィデイスクインターフェース 8255 A ボート B ( IN / OUT ) 
データ出カボート 

IN すると，出力したデータの確認ができる 


5インチフロッピイデイスクインターフェース 8255 A ポート C ( I N / OUT ) 
OUT 


IN 


ATN 

DAC 

RFD 

DAV 

1 

1 

1 

1 


ATN 

DAC 

RFD 

DAV 

/ 

DAC 

RFD 

DAV 


5インチフロッピイデイスクインターフェース 8255 A モードセット （ OUT ) 


モー ドセツト 

OUT 

57H 


ON 

OFF 

DAV 

09H 

08H 

RFD 

0 巳 H 

OAH 

DAC 

ODH 

OCH 

ATN 

OFH 

OEH 
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ボートアドレス 

内 容 

16 進 

10 進 

60 H 

96 

CRT コントローラ户 PD 7220 ( テキスト） （ IN / OUT ) 

IN ステータス 

OUT パラメ，一夕 

62 H 

98 

CRT コントロー ラバ PD 7220 (テキスト） （I N / OUT ) 

IN ライトベンデータ 

OUT コマンド 

64 H 

100 

コントローラ PPD 7220 ( OUT ) 

CRT インタラプトリセット（ダミーを OUT する） 

68 H 

104 

コントローラパ PD 7220 ( OUT ) 

モードフリッブフロップコントロール 


0 

0 

0 

〇 

ADR2 

ADR1 

ADR0 

DT 


AnR?AnRiAnnn 

機 能 


DT 




1 

〇 

0 

0 

0 

アトリビュートセレクト 

ATR4 が 
簡易 グラフ 

ATR4 が 

バー ティカルライン 

0 

0 

1 

グラフィックモード 

モノクロ 

カラー 

0 

1 

0 

カラ厶幅 

40 字 

80 字 

0 

1 

1 

フォントセレクト 

7 X 11 

6 x 7 

1 

0 

0 

88 グラフモード 

200 本 

その他 

1 

0 

1 

漢字アクセスモード 

ドットマップ 

コードアクセス 

1 

1 

0 

不揮発メモリモード 

許可 

禁止 

1 

1 

1 

表示許可 

表示可 

表不不可 


6 CH 108 


ボーダーカラー選択 （ OUT ) 


OUT 


0 

G 

R 

B 

0 

0 

0 

0 


GR 巳 

色 

RGB 

色 

0 0 0 

黒 

10 0 

綠 

0 01 

青 

101 

シアン 

010 

赤 

110 

黄 

011 

マゼンタ 

111 

白 


61 H 〜 6 FH はリザーブされている。 
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ボートアドレス 


内 容 


16進 10進 


CRT マスタスライスコントローラ ^ PD 52611 




(例） 

— ， 


70 H 

112 

キャラクタ位置ライン数 PL 





72 H 

114 

ボディフェイスライン数 BL - 





74 H 

114 

キャラクタ ライン数 C L 





76 H 

118 

スムーススクロールライン数 SSL 




78 H 

120 

スクロールエリア上辺位置行数 SUR 




7 AH 

122 

スクロールエリア 行数 SDR 



71 H 
73 H 
75 H 
77 H 


113 

115 

117 

119 



CRT 

25 行 

20 行 


640x400 

OOH 

1 EH 

P し 





640x200 

OOH 

1.FH 


640x400 

OFH 

11 H 

B し 





640x200 

07H 

08H 

C し 

640x400 

1 OH 



640x200 

08H 



タイマー コン トローラー PPD 8253 ( I N / OUT ) 


カウンタ0のデータのリード/ライト 
カウンタ1のデータのリード/ライト 
カウンタ2のデータのリード/ライト 


(16 ビット RL 1 RLO で上位下位を 
指定する） 


モード指定 
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ボートアドレス 

16 進 _10 進 内 

5 インチ固定デイスクインターフェース 


80 H 128 

82 H 130 


データボート （ I N / OUT ) 

ステータス （ IN ) コン トロール （ OUT ) 


OUT 

NR 

CHEN Dsw SEL O RST 

0 

DM 

AE 

INT 

E 


1 





rl IN 

REO 

ACK 

巳 SY 

MSG 

CXD 

IXO 

/ 

1 NT 



-OIN 

〇 T 

1 

CT 

0 

DT 

02 

DT 

01 

DT 

OO 

DT 

12 

DT 

11 

DT 

10 


CHEN Channel Enable 1 で H/A バスへのデータ出力が許可され る。 
NRDSW Read Switch ステータス ビッ トが切り換えられる。 

SEL Select 1 で H/A バスの S E L 信号がオンになる。 

R S T Reset 1— 0 で H/A バスの R S T 信号が 400 バ Sec のパルス幅で 

オンになる。 


DMA E Direct Memory Access Enable 
1 で DMA モードとなる。 

I NT E Interrupt Enable 1 で割込みの発生が許可される。 


デイッブスイッチ 


CT 

DTO 

タイプ名 

O 0 

0 0 0 

PC 98 H 31 

1 ユニット目 5 M バイト 

O O 

0 01 

PC 98 H 33 

1 ユニット目 10 M バイト 


DT 1 

タイプ名 

0 0 0 

0 01 

PC 98 H 32 2ユニット目増設用5 M バイト 

PC 98 H 34 2ユニット目増設用 10 M バイト 

i 

予 約 

111 

未 接続 


88 H 〜 8 FH リザーブ 


90 H 144 


92 H 146 


8インチフロッ ピー デイスコントローラ PPD 765 A 
ステータスボート 


RQM 

DI0 

NDM 

〇巳 

D3B 

D2B 

DIB 

DOB 


コマンド•パラメータ （ OUT ), リザルト （ IN ) 
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ポート丁 1 ^ 内 


16進 10進_ 

94 H 148 ライト•コントロール （ OUT ) 


容 


I/O 命令 


命 令 

/〇ボート 
r ドレス 

R /w 

D7 De D5 D4 D3 D2 Di Do 

備 考 

ライトコマンド 

92 

W 

—コマンドレジスタ— 

户 PD 756 A へコマンドを 

セットします。 

ライ ト レジスタ 

92 

W 

♦■パラメータ — 

" PD 756 A へのパラメー 

夕をセットします。 N 0 

N — DMA モード時は F 

D への書き込みデータも 

セットします。 

リード 

ステータス 

90 

R 

—ステータスレジスタ— 

PPD 765 A からステータ 

スを引き取ります 0 

リードデータ 

92 

R 

—リザルトステータス— 

PPD 765 A からリザルト 
ステータスを引き取りま 
す 。 NON — DMA モー 
ド時には F D から読み 
取ったデータも引き取り 
ます。 

ライトベース& 

カレントアドレス 

09 

W 

— ア ドレス — 

DMA 部のレジスタ 

リード 

カレントアドレス 

09 

R 

— ア ドレス — 

DMA 部のレジスタ 

ライトベース& 

カレントカウント 

0 B 

W 

— カウン ト — 

DMA 部のレジスタ 

リードカレント 

ワードカウント 

0 B 

R 

♦■カウン ト — 

DMA 部のレジスタ 

ライト 

シングルマスク 

レジスタビット 

15 

W 

0 0 0 0 0 M 10 

DMA 部のレジスタ 

M :1マスクオン 

M :0 マスクオフ 

ライトモード 

レジスタ 

17 

W 

0100m j 111210 

DMA 部のレジスタ 
m 1 m 2 ： 〇 〇 

ベリファイ転送 

injmg ： 〇 1 

メモリライト転送 
nijmg： 10 

メモリリード転送 

クリァバイト 

ポインタ 

フリップフロッブ 

19 

W 

XXXXXXXX 

DMA 部のレジスタ 
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ホー トアドレス 

16 進 |10 進 


94 H 

のつづき 


148 

のつづき 


(2) I / 0 命令 


命 令 

い。ボート 

アドレス 


D7 De D5 D 4 D3 D2 Di Dq 

備 考 

ライト DMA 

チヤンネル# 2 

パンク 

23 

W 

X X X X —パンク— 

DMA 部のレジスタ 

ライト 

コントロール 

94 

W 

R F 

S R X 1 X X X X 

T Y 

パ PD 756 A の外部レジス 

夕へのセット命令です。 


X 印: don’t care 

ライト コントロール レジスタ 
D 7 ビット： RST … Reset 

パ PD765 A LSI の RESET 端子の入力信号となるレジスタで户 
PD765A をイニシャライズするのに使用します。イニシャライズは卢 
PD765A へのコマンド，パラメータの転送シーケンスやリザ ル トス 
テータス転送シーケンスが乱れた時等に使用することができます。尚 
イニシヤライズは 電源投入直後及び RESET スイッチ押下時も ハード 
ウェアにて行なわれます。 


D 6 ビット： F R Y … Forced Ready 

D 765 A LSI の R D Y 端子の入力信号となるレジスタで，デバイスイ 
ンタフェースの RDY 信号と論理和されています。本ビットはデバイ 
スの接続状態，デバイスの電源投入状態をチェックするために使用で 
きます。フロッピーディスクとのインタフェースには，デバイスが接 
続されているか否か，電源が投入されているか否かの状態を直接示す 
信号線はありません。そこでデバイスに Recalibrate 動作をさせて 
Track 0 0 信号が返って来たら，そのデバイスは接続かつ電源投入状 
態であると判定します。（デバイスは媒体が挿入されていなくても 
Recalibrate 動作を行う〇 ) —方户 PD765 A は RDY 端子が〇 FF である 
と Recalibrate コマンドを実行しません。そこで FRY ビットによつ 
て強制的に R D Y 端子を ON にすることにより Recalibrate コマンドを 
実行させることができます。 

尚通常の Seek や Read ハ Vrite コマンド実行時は FRY ビットは OFF 
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ボート 7 ^ 内 


16 進 10進 


容 


にしておかねばなりません。さもないと Not Ready を検出できなくな 


ります0 


D 4ビット ： Must Be One 

セントロニクスインタフヱース回路の PSTB 信号の許可フリップ 
フロップです 。 Power On Reset やリセットスイッチ押下時のリセッ 
卜動作後プリンタインタフエース（セントロニクス）のパ PD 8255 の 
モードセット，および初期化が完了した後本フリップフロップを“1” 
にする必要があります。 

尚本フリップフロッブはパワーオン/リセットスイッチのリセット 
時 “0” がセツトされます。 


バ PD 765 A (FDC Floppy Disk Controller ) 


(1) レジスタ構成 

FDC 内にメインシステムとのインターフェース用レジスタとし 
て，データレジスタ （ DATA ) とステータレジスタ （ STATUS ) 
を持っています。各レジスタは A 0 , 百" D , WR 制御信号によって選 
択され，それらの関係は下表の通りです。 


I/O ポート 
アドレス 

Ao 

RD 

WR 

動 作 

90 

0 

0 

1 

ステータス • レジスタ•リード 

X 

0 

禁止 

92 

1 

〇 

1 

データ •レジスタ•リード 

1 

0 

データ •レジスタ•ライト 


(1) データレジスタ （ DATA ) 

FDC とメインシステム間で転送する各種情報（コマンド，パラメー 
夕，データ，およびリザルトステータス）を一時的にストアする8ビッ 
トレジスタです。 


(2) ステータスレジスタ （ STATUS ) 

FDC の状態を示す8ビットレジスタで，その構成を次表に示しま 
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ボー トアドレス 

16進「10進 


94 H 148 

のつづきのつづき 


内 容 


す。メインシステムは任意の時点でその内容を読み取ることができます。 


ステータスレジスタ 


ビット 

番号 

.名 称 

略称 

内 容 - 

D0 

F D 0 Busy 

DOB 

デバイス# 0 が SEEK コマンドによるシー 
ク動作を実行中であるが，シーク動作終了の 
割り込み要求を保留中であることを示しま 
す。 

D 1 

F D 1 Busy 

DIB 

デバイス#1について D 0ビットの内容と同 
様 

D 2 

F D 2 Busy 

D 2B 

デバイス# 2について D 0ビットの内容と同 
様 

D 3 

F D 3 Busy 

D 3 B 

デバイス# 3について D 0ビットの内容と同 
様 

D 4 

F D C Busy 

CB 

F D C が Command Phase , Result Phase , ま 
たはリード/ライト • コマンドの Execution 
Phase を実行中であることを示します。この 
ビットがセットされているときは，他のコマ 
ンドは受付けられません。 

D 5 

Non- DMA 
MODE 

NDM 

FDC#No n — DMA モードでデータ転送 
中であり，メインシステムに対してサービス 
を要求していることを示します。 

D 6 

DaTa 

Input/Output 

DIO 

データレジスタを介して転送するデータの方 
向を示します。 0のときはメインシステムか 
ら FDC の方向，1のときは FDC からメイ 
ンシステムの方向を示します。なお，データ 
レジスタの状態は RQM (D 7ビット）が示 
します。 

D 7 

Request 

for Master 

RQM 

FDC からメインシステムへ転送すべきデー 
夕がデータレジスタにロー ドされているこ 
と，またはデータレジスタが空で，メインシ 
ステムから FDC へ転送するデータをデータ 
レジスタに書き込んでもよいことを示しま 
す。データの方向を示す D I 0 (D 6ビット） 

の状態により，次の働きをします。 
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ホ。 — h T トルス - 内 容 


16進 10進 


94 H 148 

のつづきのつづき 


ビット 

番号 

名 称 

略称 

内 容 

D 7 

Request for 

Master 

RQM 

DIO =0 のとき： メインシステムから 

FDC へデータを転送する場合で，メインシ 
ステムが FDC のデータレジスタにデータを 

セツトしたとき （ WR =0) に RQM は0と 
なり， FDC がそのデータを引き取ったとき 

1となります。 

D I 0=1のとき： FDC からメインシ 
ステムへデータ転送する場合で， FDC が 
データレジスタにデータをセツトしたとき1 
となり，メインシステムがそのデータを引 
き取ったとき （ RD =0) となります。 
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ボー トアドレス 


16進 


10進 


内 


容 


94 H 

のつづき 


148 

のつづき 


コマンドの出し方 


コマンド 


READ 

DATA 


READ 

DELETED 

DATA 


R/WAo D 7 


Do 


W1 MTMFSKO 0 1 1 0 

X X X X X HD US1 USO 

- C - 

- H - 

- R - 

- N - 

- EOT - 

- GPL - 

W1◄ - DTL - 


R1 


R1 


ST 0 
ST 1 
ST 2 
C 
H 
R 
N 


W1 MT MF SK 0110 0 

X X X X X HD US1 US0 

- C - 

- H - 

- R - 

- N - 

- EOT - 

- GPL - 

- DTL - 


R 1 


R 1 


ST 0 
ST 1 
ST 2 
C 
H 
R 
N 


備 


考 


SK : SKip DDAM 

MT :マルチトラック ， MF : MFM モード 
HD : ヘッド番号， US : デバイス番号 


実行開始セクタの ID 情報 

トラック上の最終セクタ番号 
Gap 2 の長さ （VFO SYNC を含まず） 
処理すべきセクタ当りのデータ長 

|データ 転送 

実行終了時のステータス〇 
実行終了時のステータス1 
実行終了時のステータス2 

実行終了セクタの ID 情報 


SK : Skip DAM 


READ DATA と同じ 


データ 転送 


READ DATA と同じ 
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ボートアドレス 


16進 


94 H 

のつづき 


148 

のつづき 


内 


容 


コマンドの出し方 


コマンド 


READ 

D 


C ! 


WRITE 

ID 


R/WA 0 D 7 


Do 


W10 MF 0 01010 

W1 X X X X X HD US1 USO 


R 1 


R 1 


STO 
ST 1 
ST 2 
C 
H 
R 
N 


W10 MF 0 01 101 

X X X X X HD US1 USO 
< - N - ► 


◄- 


W1 


R 1 


R 1 


SC 

GPL 

D 


STO 
ST 1 
ST 2 
C 
H 
R 
N 


備 


考 


トラック上の最初に読んだエラーのな 
い I D 情報をストアする。 

READ DATA と同じ 

E — Phase で読んだ I D 情報 


データ長/セクタ 

セクタ数/トラック 

Gap の長さ （VFO SYNC を含まず） 

データ領域に書き込むデータパターン 
トラック上のセクタ数分の I D 情報を 
メインシステムより転送する。 


READ DATA と同じ 
(ただし， C , H , R は無意味） 
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ボートアドレス 


16進 10進 


94 H 

のつづき 


148 

のつづき 


内 


容 


コマンドの出し方 


コマン 


WRITE 

DATE 


WRITE 

DELETED 

DATA 

C 


R/WAo D 7 


Do 


W1 MT MF 0 0 0101 

X X X X X HD US1 USO 

- C - 

- H - 

- R - 

- N - 

- EOT - 

- GPL - 

- DTL - 


R 1 


R 1 


3丁 0 

ST 1 
ST 2 
C 
H 
R 
N 


W1 MT MF 0 010 0 

X X X X X HD US1 US0 

- C - 

- H - 

- R - 

- N - 

- EOT —— 

- GPL - 

- DTL - 


R 1 


R 1 


ST 0 
ST 1 
ST 2 
C 
H 
R 
N 


備 


考 


READ DATA と同じ 


データ転送 


READ DATA と同じ 


READ DATA と同じ 


•データ転送 


READ DATA と同じ 
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ボート アドレス 


16進 


10進 


内 


容 


148 

のつづき 


94 H 

のつづき 


コマンドの出し方 


コマンド 


READ 
D I AGNO 
STIC 


SCAN 

EQUAL 


R/WAo D 7 


Do 


W10 MF 0 0 0 01 0 

X X X X X HD US1 USO 

- C - 

- H - 

- R - 

- N - 

- EOT - 

- GPL - 

- DTL - 


W1 


R 1 


R 1 


ST 0 
ST 1 
ST 2 
C 
H 
R 
N 


W1 MT MF SK 10 
X X X X X HD 

- C 

- H 

- R 

- N 

- EOT 

- GPL 

- STP 


0 0 
US1 US0 


W1 


R 1 


R 1 


ST0 
ST 1 
ST 2 
C 
H 
R 
N 


備 


考 


READ DATA と同じ 


データ 転送 


READ DATA と同じ 


READ DATA と同じ 


比較すべきセクタのセクタ間隔 lor 2 
データ 転送 


READ DATA と同じ 
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ボートアドレス 


16進 


10進 


内 


容 


94 H 

のつづき 


148 

のつづき 


コマンドの出し方 


コマンド 


SCAN L 
OW 

OR EQUAL 


R/WAo D 7 


Do 


W1 MT MF SK 110 01 

X X X X X HD US1 USO 
- C - 


SCAN H 
I GH 

OR EQUAL 


W1 


R 1 


R 1 


H 

R 

N 

EOT 

GPL 

STP 

ST 0 
ST 1 
ST 2 
C 
H 
R 
N 


備 


考 


W1 MT MF SK 11101 
X X X X X HD US1 USO 

- C - 

- H - 

- R - 

- N - 

- EOT - 

- GPL - 

- STP - 


R 1 


R 1 


ST0 
ST 1 
ST 2 
C 
H 
R 
N 


READ DATA と同じ 


比較すべきセクタのセクタ間隔 lor 2 
データ転送 


READ DATA と同じ 


READ DATA と同じ 


比較すべきセクタのセクタ間隔 lor 2 
データ転送 


READ DATA と同じ 


480 

































































































ボートアドレス 


16進 10進 


内 


容 


94 H 

のつづき 


148 

のつづき 


コマンドの出し方 


コマンド 


SEEK 


C 

E 


RECALI¬ 

BRATE 

BRAT を | 


SENSE 
I NT | 
STATUS 

R 


SENSE 

DEVICE 


C 

STATUS 

R 


SPECIFY 

C 


Invalid 


C 
R ， 


R/WA 0 D 7 


Do 


W10 0 0 01 1 1 1 

W1 X X X X X HD US1 USO 
4 - NCN - ► 


W10 0 0 0 0 1 1 1 

W1 X X X X X 0 US1 USO 


W1 00001000 


R 1 
R 1 


ST 0 - ► 

PCN - ► 


W1 00000100 
W1 X X X X X HD US1 USO 
R 1◄ - ST 3 - ► 


W10 0 0 0 0 01 1 

W1 ◄- S RT - >4 - hut 
W1 < — HLT ―— ND 


W1 4 —その他のコード 

R 1◄ - ST 0 — 


備 


考 


新シリンダ番号 
シーク 動作 


リカラプレイト動作 


コマンド終了時のシリンダ番号 


デバイスの状態 


Step Rate Time,Head Unload lime 
Head Load Time , Non-DMA Mode 


ST 0=80(10) 
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ボー トアドレス 


16 進 10 進 


内 


容 


91 H 
93 H 


145 

147 


カセット MT インターフェース户 PD 8251 A 
データボート （I N / OUT ) 

ステータス （ IN ) モード/コマンド （ OUT ) 


RxD 

SYNDET 

FE 

OE 

/ 

TxE 

RxRDY 

TxRDY 


OUT 


1 

1 

1 

0 

1 

1 

1 

0 


/ 

IR 

/ 

ER 

SBRK 

RxE 

/ 

TxEN 


95 H 


149 


コントロールレジスタ （ OUT ) 


OUT BS 


CINH 


CONT 


TxEE 


RxRE 


TxRE 


B S ボーレート 0 : 600 ボー 1 :1200 ボー 

CINH 書き込みデータ禁止 l:ON 0 ： OFF 
CONT モータ 1 : ON 0 : OFF 


9 XH の他のボートはリザーブ 


A 0 H 

A 2 H 

A 4 H 


A 6 H 

A 8 H 
A AH 
ACH 
AEH 


160 

162 

164 


166 

168 

170 

172 

174 


CRT コントローラ PPD 7220 (グラフィック） 
ステータス （ IN ) パラメータ （ OUT ) 
データ （I N ) コマンド （ OUT ) 

G — VRAM の切り換え （ PC —9801 F . E ) 

0 . 第1画面の表示 

1……第2画面の表示 
0……第1画面にアクセス 
1……第2画面にアクセス 
パレットレジスタ No 

上位 下位 


3 

7 

1 

5 

2 

6 

〇 

4 


文字パターン R 0 M /^ PD 23128 
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ボー トアドレス 


16進 


A 1 H 

A 3 H 

A 5 H 


A 9 H 


10進 


161 

163 

165 


169 


内 


容 


文字コード第2バイト （ OUT ) 
文字コード第1バイト （ OUT ) 
文字パターン行指定カウンタライト 


OUT 


/ 

/ 

L/R 

R 〇 4 

RC3 

RC2 

RC1 


文字パターンリード （I N ) 
L / R : 

R R R R 
C C C C 
3 2 10 


L / R : 


0 0 0 0 
0 0 01 
0 010 
0 011 
010 0 
0101 
0110 
0111 
10 0 0 
10 01 
1010 
1011 
110 0 
1101 
1110 
111,1 


RC 4 未使用 



i 







i 










i 



i 

i 

i 

i 

i 

i 





i 




i 





i 

























i 





i 


i 

i 

i 

i 


i 

i 




i 




i 













% 



i 




i 




i 








i 

i 

i 

i 

i 

i 

i 

i 

i 












i 










i 


i 


i 

i 


i 

翁 

i 













| 









i 


i 

i 


i 


i 

i 


i 


i 



















i 







i 


i 







縿 






i 













i 

i 








i 

i 


B 0 H 〜 BFH 


リザーブ 


C 0 H 


C 2 H 


192 


194 


ODA プリンタインターフェースパ PD 8255 A 
ボート A ( I N / OUT ) 

データポート （ IN で確認できる） 

リードシグナル1 ( IN ) ボート B 


IN RMR ALM MDL DCN IP 1 IP2 IP3 RDA 
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ボー トアドレス 


16進 10進 
C 4 H 196 


内 容 


リードシグナル2 ( IN ) ライトシグナル2 ( OUT ) 


IN 

OUT 


RDP 

RDA 

RMS 

/I 

IR6 

/ 

/ 

Irt 


0 

0 

0 

0 

0 

0 

0 

IRT 


C 6 H 198 モードライト ライトシグナル1 ( OUT ) ボート C 


OUT A2H 



ON 

OFF 

Irt 

0 OH 

01 H 

ms 

OBH 

OAH 

INTE 

ODH 

OCH 


RMR 

プリンタがデータ受信可能状態 

ALM 

プリンタのハードエラー 

MDL 

用紙残少，用紙切れ 

DCN 

プリンタの電源 ON 

I P 3 

タイムアウトになった。 

RDA 

データ送信可能状態 


残りの CXH のポートはリザーブ 
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ポートアドレス 


16進 


DOH 

! 

DFH 


10進 


208 

i 

223 


内 


容 


リザーブ 


E 0 H 224 


キーポー ド（スキャン方式） 

ただし BAS IC の INP 命令のみ有効 
機械語の IN 命令では無意味。 

/BAS IC インターブリタ内でスキャン方式のシュミレートをし 
\ているのである。 


(データ.バス） 

D „ D , D , D , D , D 5 D « D 7 
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ポートアドレス 
16進|—10進 


( データ . バス） 


U, D, a D 4 Db Db D7 


(7 ドレス . バス） 

ポート番号 


E 0 


E! 


E 2 

E, 


E 4 

e 5 

e 6 

e 7 - 

e 8 

e 9 - 



EDH 237 リザーブ 


FFH 255 
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付録一 5 

コマンド•ステートメント関数 
処理アドレスー覧表 


コマンド.ステートメント関数処理アドレスー覧表 


WHILE 

WEND 

URITE 

LIST 

SEG 

CETT 

KINPUT 

SRO 

CMD 

IRESET 

ISET 

POLL 

RBYTE 

UBYTE 




LINE : 3054 

LOAD : 8FC0 

LSET i 7183 

し FILES : 6AB8 

MOTOR : 5189 

MERGE : 3F2A 

MON : 2A39 

NEXT : 7387 

NAME : 69A6 

NEU : 2A0B 

NOT : 3E12 

OPEN : 51C7 

OUT : 7045 

ON : 266E 

OPTION : 5267 

OFF : 3E12 

? : 7FF5 

PUT : 3470 

POKE : 49EA 

PSET : 3100 

PRESET : 3111 

PAINT : 3142 

RETURN : 278d 

READ : 9B79 

RUN : 28A8 

RESTORE : 9BB0 

« 3F1? 

RESUME : 293E 

RSET : 71B5 

PENIJM : 2B46 

RANDOMIZE : 71E5 

POLL : 3203 

SCREEN : 3227 

STOP : 16ED 

SUAP : 70E3 

SA^E : 8CBB 

SPC : 3E12 

STEP : 3E12 

THEN : 3E12 

IRON : 7502 

TROFF : 7509 

TAB : 3E12 

TO : 3E12 

TERM : 6C1C 

USING : 3E12 

IJSR : 3E12 

UIDTH : 5543 

UAIT : 70.15 


AUTO 

BSA リ E 

BLOAD 

BEEP 

CONSOLE 

COPY 

CLOSE 

CONT 

CLEAR 

CALL 

COMMON 

CHAIN 

COM 

CIRCLE 

COLOR 

CLS 

DELETE 

DATA 

DIM 

DEFSTR 

DEFINT 

DEFSNG 

DEFDBL 

DSKO$ 

DEF 

ELSE 

END 

ERASE 

CD IT 

ERROR 

FOR 

FIELD 

FILES 

FN 

60 TO 

GOSUB 

GET 

HELP 

INPUT 

IF 

KEY 

KILL 

KANJI 

LOCATE 

L7 

LLIST 

LET 


※関数処理アドレスは 
第 2 章の 56 ページを 
ご参照下さい。 


注）これは 1983 年 7 月ごろの出荷された PC-9801 のものです。 


D R —> p D 
N R 〇 Q M 〇 
A O X E I M 


4 0 8 c E '65 0 7 8 C 21 c D 7 9 9 0 5 D 19 8 4 6 A C 18 0 2 8 2 2 9 F 9 B E C 9 9 2 6 E 3 2 
?665AD«aElcl2F7614D0CBCBA_H-CF1507F-BllEE014B611DE6D 
2 c F 12 F 2 2 CO B c c 4 D F 0 4 2 D c c c c 7 2 2 9 D A 3 2 ul- A E E 6 6 4 5 9 A. 5 A E 3 F 6 0 
2 8 8 5 5 6 5 2 2 9 9 9 2 2 2 3 2 2 9 9 9 9 9 4 712 9 2 2 7 7 6 3 3 2 2 3 2 ly 2 2 6 3 uli 7 7 7 


U J 4 〇 * 12 4 3 E £ E E E E E 9 2r! C ム 2 2 2r ム 2 2 2 2 2 2QQ • 

IX J/^ yoIX r ^ u la IX IX/« —一 IX ィ丄 ix ^j パ ^ 一 IX ィ丄 IX ^ —- IX IX IX IX u. A — ^ 

4 4 A 6 Lc.7 A 7 7 7 7 7 7 7 7 E UJ E E E E E E E E E E E 7 「•- 
7 7 9 7 3 4 9 11111111 3 1,0 ( コ 3 3 3 3 3 〇 二 —n 3 3 3 11 
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付録一 6 

コルト□ールコードー覧表 


付録 6 コントロールコードー覧表 


(1) 十一水一卜 


16進 

10 進 

対応するキー 

N-BAS I C (86) 

N 88 — BAS I (86) 

01 

1 

CTRL-A 


ヘルプキーと同じ 

0 2 

2 

CTRL-B 

1 つの前のワードへ戻る 

(N — BAS I C と同じ） 

0 3 

3 

CTRL-C 

実行の中断（| STOP |の時） 

実行の中断 

0 4 

4 

CTRE - D 


カーソル位置から1ワードを削 

除 （86) 

0 5 

5 

CTRL-E 

カーソル位置から後を消す 

( N-BAS I C と同じ） 

0 6 

6 

CTRL - F 


1つ先のワードへ進む 

0 7 

7 

CTRL-G 

スピーカを鳴らす 

( N-BAS I C と同じ） 

0 8 

8 

CTRL—H 

カーソル位置の左側の文字を削 

除する 

( N-BAS I C とじ） 

0 9 

9 

CTRL-I 

水平タブ （ 8文字毎） 

( N-BAS I C と同じ） 

0 A 

10 

CTRL - J 

行を2つに分ける 

ラインフィード、インサートモ 

ードで2行に分割 

0 B 

11 

CTRL-K 

ホーム ポジション 

( N-BAS I C と同じ） 

OC 

12 

CTRL-L 

テキスト画面クリア 

( N-BAS I C と同じ） 

0 D 

13 

CTRL-M 

キヤリッジリターン 

( N-BAS I C と同じ） 

0 E 

14 

CTRL-N 

1つ先のワードへ進む 


OF 

15 

CTRL -0 

「ESC 1の後に押すことによ 

り N 88 — B AS I C (86) と同 

じ働きを行なう 

画面の表示を無効にする 

12 

18 

CTRL-R 

カーソル位置から右側を1文字 

分右へずらす。 

インサートモードにする。 

13 

19 

CTRL-S 


実行を一時停止する 

15 

21 

CTRL-U 


1行キヤンセル 

18 

2 4 

CTRL-X 


カーソルを行の最後に移す 

IB 

2 7 

「ESC I 

実行を一時停止する 


1 C 

2 8 

B 

カーソルを右へ移動 

( N-B AS I C と同じ） 

ID 

2 9 

B 

カーソルを左へ移動 

( N-B AS I C と同じ） 

IE 

3 0 

m 

カーソルを上へ移動 

(N — BAS I C と同じ） 

IF 

31 


カーソルを下へ移動 

( N-BAS I C と同じ） 
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⑵通信 


16 進 

10 進 

シンボル 

シンボルの意味 

0 0 

0 


null 

01 

1 

SH 

Start of Heading (ヘッディング開始） 

0 2 

2 

SX 

Start of Text (テキスト開始) 

0 3 

3 

EX 

End of Text (テキスト終了） 

0 4 

4 

ET 

End of Transmission (伝送終了） 

0 5 

5 

EQ 

Enquiry (問合わせ） 

0 6 

6 

AK 

Acknowledage (肯定応答) 

0 7 

7 

BL 

Bell (ベル、ブザー） 

0 8 

8 

BS 

Back Space (後退） 

0 9 

9 

HT 

Horizontal Tabulation (水平タブ) 

0 A 

10 

LF 

Line Feed (改行） 

0B 

11 

HM 

Home (VT) Vertical Tabulation (垂直タブ） 

0 C 

12 

CL 

Clear (FF) Form Feed (改頁） 

0 D 

13 

CR 

Carriage Return (復帰） 

0 E 

14 

SO 

Sift-out (シフトアウト） 

OF 

15 

SI 

Sift-in (シフトイン） 

10 

16 

DE 

Data Link Escape (伝送制御拡張） 

11 

17 

D 1 

Device Control1 (装置制御 1 ) 

12 

18 

D 2 

Device Control2 (装置制御 2 ) 

13 

19 

D 3 

Device Control3 (装置制御 3 ) 

14 

2 0 

D 4 

Device Control4 (装置制御 4 ) 

15 

21 

NK 

Negative Acknowledge (.否定応答） 

16 

2 2 

SN 

Synchronous idle (同期信号） 

17 

2 3 

EB 

End of Transmission Block (伝送ブロ ッ ク終了） 

18 

2 4 

CN 

Cancel (取消し) 

19 

2 5 

EM 

End of Medium (媒体終端） 

1 A 

2 6 

SB 

Substitute (文字置換) 

IB 

2 7 

EC 

Escape (拡張） 

1C 

2 8 

—► 

(FS) File Separator (ファイル分離） 

ID 

2 9 


(GS) Group Separator (グループ分離） 

IE 

3 0 

t 

(RS) Record Separator (レコ ード分離） 

IF 

31 


(US) Unit Separator (ユニット 分離) 
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付録一 7 

エラーメッセージー覧表 


エラーメッセージー 覧表 


• • • NEXT without FOR 

• • • oyntax error 

• ♦ • RETURN without GOSUB 

• • • Out of DATA 

••• Illegal function call 

• • • O^erf1ow 

• • • Out of memory 

• • • Undefined 1ine number 
••• Subscript out of range 
••• Duplicate Definition 

Division by Zero 

• • • Illegal direct 

• • ♦ Type mismatch 

••• Out of string space 

• • • String too1ong 

••• String formula too complex 

• •• Can^t Continue 

• • • Undefined user function 

• • • No RESUME 

••• RESUME without error 
Unprintable error 

• # # Missing operand 

••• Line buffer overflow 

…？ 

…？ 

••• FOR without NEXT 

• •• Tape read error 

…？ 

••• WHILE without WEND 
… UEND without WHILE 
••• Duplicate label 
••• Undefined label 
••• Feature not available 
…？ 

…？ 

…？ 

…？ 

…？ 

…？ 

…？ 

…？ 

…？ 

…？ 

…？ 

…？ 

…？ 

…？ 

…？ 

…？ 

••• FIELD overflow 

• • ♦interna 1 error 

• ♦ • Bad file number 

• • ♦ File not found 
••• rile already open 

• • • Input past end 

• ♦参 Bad file name 

••• Direct statement in file 


-234561 


890123456789 

1-1-1-IX 11-i* 11- 


2021222324252627282930313233-343536373839404142434445464748495051525354555657 
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58 

# • • 

sequential after PUT 

59 

参## 

Sequential I/O on 1y 

60 

t • • 

File 

not open 

61 

t 拿參 

File 

write protected 

62 

♦ # # 

Disk 

off1ine 

63 

# • t 

? 


64 

# # ♦ 

Disk 

I/O error 

65 

• ♦ • 

File 

already exists 

66 

参 ♦参 

? 


67 

# ♦ ♦ 

? 


68 

• # ♦ 

Disk 

full 

69 


Bad 

allocation table 

70 

參 ♦ # 

Bad 

dri^e number 

71 

♦ •参 

Bad 

track/sector 

72 

參 •拿 

Deleted record 

73 

♦ • • 

Rename across disks 

74 

拿 ♦參 

Illegal operation 
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付録 一 8 

プ | J ンタ機能一覧表 


付録 8 プリンタ機能一覧表 ( PC -8821 /22, PC —8023) 


分 類 

ニーモニック 

H E X コード 

機 能 

PC-8821/8822 

PC-8023IC) 

印字指令 

CR 

0 D 

バッファのデータを印字 

〇 

〇 

改行 

LF 

0 A 

1 行送り 

〇 

〇 

垂直タブ 

VT 

OB 

多行送り 

〇 

〇 

フオームフイード 

FF 

OC 

改ページ 

〇 

〇 

拡大 

SO 

0 E 

拡大指令 (8bit) 

〇 

〇 

(8bit) 

SI 

OF 

拡大解除 (8bit) 

〇 

〇 

セレクト 

DC 1 

11 

セレクト 

〇 

〇 

デイセレクト 

DC 3 

13 

デイセレクト 

〇 

〇 

拡大 

DC 2 

12 

拡大指令 (7bit) 

〇 

〇 

(7bit) 

DC 4 

14 

拡大解除 (7bit) 

〇 

〇 

水平タブ 

HT 

0 9 

水平タブ移動 

〇 

〇 

キャンセル 

CAN 

18 

データのキャンセル 

〇 

〇 

n 行改行 

US 

IF 

1 〜 15 行の改行 

〇 

0 

VFU 

— 

— 

タブ位置等の設定 

〇 

〇 

印字方法 

ESC, N 

1 B, 4 E 

HS パイカ 

〇 

〇 


ESC, P 

1 B, 5 0 

ブロボーシヨナル 

〇 

〇 


ESC, Q 

1 B, 51 

コンデンス 

〇 

〇 


ESC, E 

1 B, 4 5 

エリート 

〇 

〇 


ESC, H 

1 B, 4 8 

HD パイカ 

〇 

X 


ESC, K 

1 B, 4 B 

漢字 

〇 

X 

ドツトスペース 

ESC, SOH 

1 B, 01 

1 ドットスペース 

〇 

〇 


ESC, STX 

1 B, 0 2 

2 ドットスペース 

〇 

〇 


ESC, ETX 

1 B, 0 3 

3 ドットスペース 

〇 

〇 


ESC, EOT 

1 B, 0 4 

4 ドットスペース 

〇 

〇 


ESC, ENQ 

1 B, 0 5 

5 ドットスペース 

〇 

〇 


ESC, ACK 

1 B, 0 6 

6 ドットスペース 

〇 

〇 

キャラクタモード 

ESC, $ 

1 B, 2 4 

英数記号モード 

〇 

〇 


ESC, & 

1 B, 2 6 

ひらがなモード 

〇 

〇 


ESC, # 

1 B, 2 3 

内部グラフイックモード 

〇 

X 

ドット列印字モード 

ESC, S 

1 B, 5 3 

8 bit ド'ット列 

〇 

〇 


ESC, I 

1 B, 4 9 

16bit ドット列 

〇 

X 
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分 類 

ニーモニック 

HEX コ 

トド 

機 能 I 

3 C-8821/8822 

PC-8023IC) 

ドット列印字モード 

ESC, 

V 

IB, 

5 6 

8bit ドット列リピート 

〇 

X 


ESC, 

W 

IB, 

5 7 

16bit ドット列リピート 

〇 

X 


ESC, 

F 

1 B, 

4 6 

ドットアドレッシング 

〇 

X 

キャラクタリピート 

ESC, 

R 

IB, 

5 2 

キャラクタリピート 

〇 

X 

強調文字 

ESC, 

I 

IB, 

21 

強調文字セレクト 

〇 

〇 


ESC,’ 

y 

IB, 

2 2 

強調文字解除 

〇 

〇 

印字モード 

ESC,] 

IB, 

5 D 

ロジカルシークモード 

〇 

〇 


ESC,) 

IB, 

3 E 

片方向印字 

〇 

X 


ESC, 

( 

IB, 

5B 

インクリメンタルモード 

X 

〇 

改行幅 

ESC, 

A 

IB, 

41 

1/6 インチ改行モード 

〇 

〇 


ESC, 

B 

1 B, 

4 2 

1/8 インチ改行モード 

〇 

〇 


ESC, 

T 

IB, 

5 4 

N/120 インチ改行モード 

〇 

〇 

改行方向 

ESC, 

f 

IB, 

6 6 

順方向改行モード 

〇 

〇 


ESC, 

r 

IB, 

7 2 

逆方向改行モード 

〇 

〇 

水平タブ 

ESC, 

( 

1 B, 

2 8 

水平タブセット 

〇 

〇 


ESC,) 

IB, 

.2 9 

水平タブ部分クリア 

〇 

〇 


ESC, 

0 

IB, 

3 0 

水平タブオールクリア 

〇 

〇 

アンダーライン 

ESC, 

X 

IB, 

5 8 

アンダーライン開始 

〇 

〇 


ESC, 

Y 

IB, 

5 9 

アンダーライン終了 

〇 

〇 

レフトマージン 

ESC, 

L 

IB, 

4 C 

印字開始位置への設定 

〇 

〇 

リボン切換 

ESC, 

C 

1 B, 

4 3 

リボン切替指定 

〇 

X 

外字のロード 

ESC, 

本 

1 B, 

2 A 

外字のロード 

〇 

X 

•ドット対応グ 

ESC, 

D 

IB, 

4 4 

640 ドットモード 

〇 

X 

ラフィックドッ 

卜数の切り換え 

ESC, 

M 

IB, 

4 D 

960 ドットモード 

〇 

X 
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付録 - 9 

キャラクターコード表 


付録 9 キャラクタコード表 


ASCI I コード表（キャラクタセット） 


上位4ビット- ♦ 



~0 

T 

— 

"3 

4 

T 

¥ 

7 i 

3 9 

T 


~c 


Y 

F 



d e 


^0 

® 

Y 


P 

丄 


一 

T 

T 


E 

T 

可 

^7 

! 

T 

T 


a 

q ■ 

一 


■ 0 

y 

T 

X 


二 

円 

~2 


D 2 

" 


Y 

R 

T 

r ■ 



T - 

T 

ツ 

~7 

一 

一 

¥ 


E X 

D 3 

T 

" 3 " 

~c 

~s" 

c 

s ■ 

_ 


j 


テ 


— 


月 

T 

E 丁 

D 4 

T 

~4 

"d" 

Y 

T 

IS 

iz 

\ 

ェ 

T 

マ 

W 

T 

y 


n k 

¥ 


Y 

Y 

e 

IS 

F 

• 


ナ 

ュ 


胃 


6 

¥ 

S N 

& 

~6" 

~¥ 

Y 

T 

zj 

C 

ヲ 


_ 一* 




¥ 

7 


e b 

/ 

7 

~G 

~w 

g 

w I 

LJ 

ァ 




A 

互 

8 

B S 

C N 

"T 

8 


Y 

h 


It 

ィ 

T 

土 

T 

□ 


9 

ITp 

e m 


~9 

丁 

Y 

i 

y 

1 


ゥ 

V 

~7 

ル 

□ 


A 

l f 

^b" 


• 

丁 

Y 

j 

4 

1 

一 

エ 

ゴ 

ノヽ 

レ 

□ 

— 

B 

% 

EC 

+ 

， 

Y 

T 

T 

tt 

j 

才 

~¥ 


口 

□ 

■ 

C 


― > 

> 


て 

¥ 

丁 

-i 

r 

ャ 


フ 

7 

□ 


D 

C R 

< — 

— 

= 

m" 

r 

m 


Ik 

ユ 

ス 

へ 

ン 



E 

$ 

z 

. 


Y 

八 

n 


1 弋 

3 

セ 

ホ 

W 



F 


2 

7 

~V 

~o 

_ 

0 

DEL^f 

ーノ 

ッ 

V 

マ 

0 

SI 

DEL 


502 















































































付録一 10 

USING 文フォーマツ!-一覧表 


付録 10 US I NG 文フォーマットー覧表 


フオーマット 

機 能 

例 

] 

文字列の最初の文字だけ出 

力 

PRINT USING “F. 1[! 】 ” ; “abcde” 

F.l[a] 

& •. & 

n 文字 

始めの n 文字を左づめで出 

力 

PRINT USING T.2: [& &]”;“abcde” 

F.2:[abcd] 

@ 

1 つの®に対して、 1 つの 

文字列を出力 

PRINT USING “F.3 : [Q]” ; “abcde” 

F.3:[abcde] 

井 ### 

数値を右づめで表示 

PRINT USING “F.4:[# # 林林 ]”;123.456 

F.4:[123] 


小数点の位置を指定 

PRINT USING “F.5:[# ###. 林 ]”;123.456 

F.5:[123.5] 


数値の前に符号 （+ , —） 

をつける 

PRINT USING “F.6:[+ ###. 井]，’; 123.456 

F.6:[+123.5] 

###•# + 

数値の後に符号 （+ , —） 

をつける 

PRINT USING K F.7:[ # # #. # + ]”; 123.456 ，一 

123.456 

F7:[123.5+]R7:[123.5-] 

PRINT USING T.8:[ 林 ##. # - r ； 123.45 6, - 

123.456 

F.8:[123.5]F.8:[123.5-] 

ホ *####.# 

空白部分をで埋める 

PRINT USING “F.9:[* *####. 123.456 

F.9:[* * *123.5] 

¥¥####. # 

数値の直前に“ ¥” をつけ 

る 

PRINT USING “F.10:[¥¥# ##. 林 ]”;123.456 

F.10:[ ¥123.5] 

**¥##. # 

* * と¥の両方の機能とな 

る 

PRINT USING “F.ll:[* *¥##• #]”; 123.456 

F.ll:[* ¥123.5] 

#####, 

3 桁毎に“,”で区切って 

出力 

PRINT USING T.12：[# ####, ]» ； 1234.56 

F.12:[l,235] 

###一一 

数値を指数形式で出力 

PRINT USING U F.13:[# ## - ]”; 1234.56 

F.13:[ 12E + 02] 

井 ###_，#### 

に続く 1 文字を単に 

文字として出力 

PRINT USING “F.14: [ 林 ### 林###]，， 

; 123.123 

F.14:[ 123.12 3] 
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付録一 11 

Z 80 • 8086ニーモニック対応表 


ここでは 、 Z — 80 の命令を 8086 の命令で対応させて一覧表を作成しました。 Z — 80 のプログラム 
を 8086 に移植したり、 8086 の学習に役立てて下さい。なお、 8086 の命令への対応ではレジスタの 
保存は考慮していません。 


Z —80.8086レジスタ対応 




氺 AH と F は、 

LAHF … AH—F 
SAHF … AH—F 
という命令を通して対応します。 
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8 ビット • □ー ド命令 


Z80 


8086 


LD 

r ,r 

… MOV 

r 9 r 

し D 

r ,n 

… MOV 

r,r\ 

し D 

r,(HL) 

… MOV 

r,[BX] 

し D 

r ， （ IX+d) 

… MOV 

r,d[SI] 

し D 

r,(IY+d) 

… MOV 

r,d[DI] 

し D 

(HL),r 

… MOV 

: BXl,r 

LD 

(IX+d),r 

… MOV 

d[SI],r 

し D 

(IY+d),r 

… MOV 

d[DI],r 

し D 

(HL),n 

… MOV 

BYTE [BX],n 

し D 

(IX+d),n 

… MOV 

BYTE d[SI],n 

し D 

(IY+d),n 

… MOV 

BYTE d[DI],n 

し D 

A,(BC) 

… PUSH 

BX 



MOV 

BX,CX 



MOV 

AL,[BX] 



POP 

BX 

し D 

A,(DE) 

… PUSH 

BX 



MOU 

BX,DX 



MOV 

AL.CBX ： 



POP 

BX 

し D 

A, (nn) 

• •• MOV 

AL f [nn] 

し D 

(BC),A 

… PUSH 

BX 



MOV 

BX,CX 



MOV 

[BX],AL 



POP 

BX 

し D 

(DE),A 

… PUSH 

BX 



MOV 

BX,DX 



MOV 

[BX],AL 



POP 

BX 

し D 

(nn),A 

… MOV 

[nn] ， AL. 


レジスタ 

r,r ( 

Z-80 

8086 

B 

〇 H 

C 

C し 

D 

DH 

E 

Dl_ 

H 

BH 

し 

巳し 

A 

AL 


d ……8 ビットデイスプレースメント 

n. 8 ビットイ ミー デイエイトデータ 

n n …… アドレス （ 16 ビット） 
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16 ビット•□ー ド命令 


Z-80 


し D 

dd,nn 

し D 

IX, nn 

し D 

I Y，nn 

し D 

HL ， （ nn) 

し D 

dd,(nn) 

し D 

IX,(nn) 

し D 

IY ，（ nn) 

し D 

(nn),HL 

し D 

(nn),dd 

し D 

(nn),IX 

し D 

(nn ),IY 

し D 

SP.HL 

し D 

SP,IX 

し D 

SP’IY 

PUSH 

qq 

PUSH 

AF 

PUSH 

IX 

PUSH 

IY 

POP 

qq 

POP 

AF 


8086 


MOV 

dd,nn 

MOV 

SI,nn 

MOV 

DI ,nn 

MOV 

BX,[nn] 

MOV 

dd,Cnn] 

MOV 

SI, [nn] 

MOV 

DI, ： nn ： 

MOV 

[nn],BX 

MOV 

匸 nnJ,dd 

MOV 

[nn],SI 

MOV 

[nn],DI 

MOV 

SP’BX 

MOV 

SP,SI 

MOV 

SP,DI 

PUSH 

LAHF 

qq 

PUSH 

AX 

PUSH 

SI 

PUSH 

DI 

POP 

qq 

POP 

SAHF 

AX 

POP 

SI 

POP 

DI 


注） レジスタ dd 


Z-80 

8086 

B 〇 

CX 

DE 

DX 

H し 

BX 

SP 

SP 


n n ……16 ビットイミーディェ 


レジスタ qq 

Z-80 

8086 

B 〇 

CX 

DE 

DX 

H し 

BX 

AF 

AX 


トデータ、アドレス 


X Y 

I I 


p P 
〇 〇 
p P 
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ェクスチ I ンジ命令 


DE,HL 

AF,AF 


MOVSB 


MOVSB 


EX (SP),HL 


EX (SP),IX 


EX (SP),IY 


.STD 
MOVSB 


8086 
- CLD 
MOVSB 


8086 

XCHG DX,BX 


AX,[nn] 

CX,[nnl] 

DX,[nn2] 

BX,[nn3] 

BX.AX 

BP,SP 
[BP],AX 
BP,SP 

BX,AX 
SI, AX 

BP,SP 
[BP],AX 
BP,SP 

SI,AX 


XCHG 
XCHG 
XCHG 
XCHG 
XCHG 

C し I 

XCHG 
XCHG 
XCHG 
ST I 
XCHG 
XCHG 

C し I 

XCHG 
XCHG 
XCHG 
ST I 
XCHG 
XCHG DI,AX 

C し I 


XCHG 
XCHG 
XCHG 
ST I 
XCHG 


BP,SP 
[BP],AX 
BP,SP 

DI,AX 


注） 


;[ES:DI]—[DS:SI] 
;DI=DI+1 
;SI=SI+1 
;CX=CX-1 

;[ES:DI]—[DS:SI] 

;DI=DI+1 

5SI=SI+1 

;CX=CX-1 until CX=0 
;[ES:DI]—[DS:SI] 
;DI=DI - 1 
;SI=SI-1 
;CX=CX - 1 

;[ES:DI]—[DS:SI] 
;DI=DI - 1 
;SI=SI - 1 

;CX=CX-1 until CX=0 


ブ□ック転送命令 

Z80 

LDI 

LDIR 

LDD 

LDDR 


注) 8086 では裏レジがないのでメモリとのエクスチェンジになります。 


Z X 
XXX 
E E E 


D P 
T E 

s R 


D P 
L E 
c R 
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ブロック サーチ 命令 


Z80 

8086 


CPI 

… CLD 

CMPSB 

;[DS:SI]-[ES:DI] 

CPIR 

… CLD 

;[DS:SI]-[ES:DI] 

CPD 

REP CMPSB 

SI=SI+1:DI=DI+1 
until CX=0 

… STD 

CMPSB 

;[DS:SI]-[ES:DI] 

CPDR 

… STD 

;[DS:SI]-[ES:DI] 


REP CMPSB 

SI=SI-1 ： DI=DI-1 
until CX=0 


8 ビット算術 Hi 理演算命令 
Z80 8086 


ADD 

A,n 


ADD 

AL,r 

ADD 


ADD 

AL,n 

ADD 

A,(HL) 


ADD 

AU[BX] 

ADD 

A,(IX+d) 


ADD 

AL,d[SI] 

ADD 

A,(IY+d) 


ADD 

AL,d[DI] 

ADC 

A,r 


ADC 

AL,r 

ADC 

A t n 


ADC 

AL. n 

ADC 

A,(HL) 


ADC 

AL,[BX] 

ADC 

A,(IX+d) 


ADC 

AL,d[SI] 

ADC 

A,(IY+d) 


ADC 

AL,d[DI] 

SUB 

r 


SUB 

AL,r 

SUB 

n 


SUB 

AL • n 

SUB 

(HL) 


SUB 

AL,[BX] 

SUB 

(IX+d) 


SUB 

AL,d[SI] 

SUB 

(IY+d) 


SUB 

AL,d[DI] 

SBC 

A,r 


SBC 

AL,r 

SBC 

A ， n 


SBC 

AL,n 

SBC 

A,(HL) 


SBC 

AL,[BX] 

SBC 

A,(IX+d) 


SBC 

AL,d[SI] 

SBC 

A,(IY+d) 


SBC 

AL,d[DI] 

AND 

r 


AND 

AL,r 

AND 

n 


AND 

AL ,n 

AND 

(HL) 


AND 

AL,[BX] 

AND 

(IX+d) 


AND 

AL,d[SI] 

AND 

(IY+d) 


AND 

AL,d[DI] 

OR 

r 


OR 

AL,r 

OR 

n 


OR 

AL, n 

OR 

(HL) 


OR 

AL,[BX] 

OR 

(IX+d) 


OR 

AL,d[SI] 

OR 

(IY+d) 


OR 

AL,d[DI] 

XOR 

r 


XOR 

AL,r 

XOR 

n 


XOR 

AL,n 

XOR 

(H し） 


XOR 

ALCBX ： 

XOR 

(IX+d) 


XOR 

AL,d[SI] 

XOR 

(IY+d) 


XOR 

AL,d[DI] 

CP 

r 


CMP 

AL,r 

CP 

n 


CMP 

AL>n 

CP 

(HL) 


CMP 

AL,[BX] 

CP 

(IX+d) 


CMP 

AL,d[SI] 

CP 

(IY+d) 


CMP 

AL,d[DI] 

INC 

r 

… . 

INC 

r 
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(HL) 

… INC 

[BX] 


(IX+d) 

… INC 

BYTE 

d[SI] 

(IY+d) 

… INC 

BYTE 

d[DI] 

r 

… DEC 

r 


(HL) 

… DEC 

BYTE 

[BX] 

(IX+d) 

… DEC 

BYTE 

d[SI] 

(IY+d) 

… DEC 

BYTE 

d[DI] 


16 ビット算術 II 理演算命令 


Z80 


8086 

ADD 

H し ， ss 

… ADD 

BX,ss 

ADC 

HL，ss 

… ADC 

BX,ss 

SBC 

H し ， ss 

… SBB 

BX, ss 

ADD 

IX,pp 

… ADD 

SI ,pp 

ADD 

IY,rr 

… ADD 

DI ,rr 

INC 

ss 

… INC 

ss 

INC 

IX 

… INC 

SI 

INC 

IY 

… INC 

DI 

DEC 

ss 

… DEC 

ss 

DEC 

IX 

… DEC 

SI 

DEC 

IY 

… DEC 

DI 


レジスタ叩 

Z-80 

8086 

BC 

CX 

DE 

DX 

IX 

SI 

SP 

SP 


レジスタ rr 

Z-80 

8086 

BC 

CX 

DE 

DX 

IY 

DI 

SP 

SP 


レジスタ ss 

Z-80 

8086 

BC 

CX 

DE 

DX 

HL 

BX 

SP 

SP 


アキュムレータ播作命令 


Z80 

8086 

DAA 

… DAA 

NEG 

… NEG A し 

CPL 

… NOT A し 

CCF 

… CMC 

SCF 

… STC 


CPU コント□ール命令 


Z80 

8086 

NOP 

NOP 

HALT 

H し T 

DI 

C し I 

El … 

ST I 


N N N E E E F 
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ローテート•シフト命令 


Z80 

RLC A 
R し A 
RRC A 
RR A 
RLC r 
RLC (HL) 
RLC (IX+d) 
RLC (IY+d) 
R し r 
RL (HL) 

RL (IX+d) 
RL (IY+d) 
RRC r 
RRC (HL) 
RRC (IX+d) 
RRC (IY+d) 
RR r 
RR (HL) 

RR (IX+d) 
RR (IY+d) 
SLA r 
SLA (HL) 
SAL (IX+d) 
SAL (IY+d) 
SRA r 
SRA (HL) 
SRA (IX+d) 
SRA (IY+d) 
SRL r 
SRL (HL) 
SRL (IX+d) 
SRL (IY+d) 
RLD 


RRD 


8086 

• • ROL 

■ . RCL 

• • ROR 

• • RCR 

• • ROL 

• • ROL 

• • ROL 

• • ROL 

• • RCL 
.• RCL 

• • RCL 

• • RCL 
_ • ROR 
_ • ROR 
.-ROR 

• . ROR 
•- RCR 

• • RCR 

• • RCR 
•- RCR 

• . SAL 

• . SAL 
•- SAL 

• . SAL 
•- SAR 

• • SAR 
•- SAR 

• • SAR 

• • SHR 

• • SHR 
•- SHR 

• . SHR 

• • MOV 

XCHG 

MOV 

RO し 

MOV 

RO し 

XCHG 

MOV 

■ • MOV 

XCHG 

MOV 

ROR 

MOV 

ROR 

XCHG 

MOV 


AL,1 

AL,1 

AL,1 

AL,1 

r,l 

BYTE [BX],1 
BYTE d[SI],l 
BYTE d[DI],l 
r,1 

BYTE [BX],1 
BYTE d[SI],l 
BYTE d[DI],l 
r,1 

BYTE [BX],1 
BYTE d[SI],l 
BYTE d[DI],l 
r，l 

BYTE [BX],1 
BYTE d[SI],l 
BYTE d[DI],l 
r,1 

BYTE [BX],1 
BYTE d[SI],l 
BYTE d[IY],l 
r,1 

BYTE [BX],1 
BYTE d[SI],l 
BYTE d[DI],l 
r,1 

BYTE [BX],1 
BYTE d[SI],l 
BYTE d[DI],l 
AL,[BX] 

CX,DX 
CL,4 
AL,CL 
CL,4 
AX, CL 
CX,DX 
[BX]，AH 
AH,[BX] 

CX,DX 
CL,4 
AX, CL 
CL,4 
AL.CL 
CX，DX 
[BX],AX 
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ビット橾作命令 


Z80 8086 


BIT 

b,r 

•… TEST 

r，b〆 


BIT 

b,(HL) 

… TEST 

BYTE 

[BX] ， t/ 

BIT 

b,(IX+d) 

•… TEST 

BYTE 

dCSIDtb' 

BIT 

b,(IY+d) 

… TEST 

BYTE 

dUDI]〆 

SET 

b,r 

… OR 


[BX],b/ 

SET 

b,(HL) 

… OR 

BYTE 

SET 

b,(IX+d) 

… OR 

BYTE 

d ： SI ： ,b / 

SET 

b,(IY+d) 

… OR 

BYTE 

d[DI],b/ 

RES 

b,r 

… AND 

r,b / 


RES 

b,(HL) 

… AND 

BYTE 

[BX],b/ 

RES 

b,(IX+d) 

… AND 

BYTE 

d ： SI ： ,b / 

RES 

b,(IY+d) 

… AND 

BYTE 

drDIZUt/ 


；BIT 1，A 
—TEST AL,02H 


5 SET 1,(IX+1) 

—OR BYTE 01H[DI],02H 


5 RES 1,(HL) 

—AND BYTE [BX],0FDH 


注） b ’ は上の例を参照して算出して下さい 


ジャンブ • コール.リターン命令 


Z80 

JP nn 
JR nn 
JP NZ,nn 

JR Z,nn 

JP NC,nn 

JP C,nn 

JP PO,nn 

JP PE,nn 


8086 

••• JMP nn 
.•• JMPS nn 
… JE NEXT 
JMP nn 
NEXT： —— 

… JNE NEXT 
JMP nn 

NEXT :- 

… JB NEXT 
JMP nn 
NEXT : -一一 
… JNB NEXT 
JMP nn 
NEXT： --- 
… JP NEXT 
JMP nn 

NEXT :- 

•… JNP NEXT 
JMP nn 


JP P,r 


JP M,r 


NEXT：—_ 
… JS 
JMP 
NEXT：-— 
… JNS 
JMP 
NEXT ： — 


NEXT 

nn 

NEXT 


JR 

NC, nn 

… JNB 

nn 

JR 

Z,nn 

… JE 

nn 

JR 

NZ, nn 

… JNE 

nn 

JP 

(HL) 

… JMP 

BX 

JP 

(IX) 

… JMP 

SI 

JP 

(IY) 

… JMP 

DI 

DJNZ 

nn 

… し 0 OP 

nn 

CALL 

nn 

••• CAL し 

nn 

CALL 

NZ ,nn 

•… JE NEXT 



CALL 

nn 


( カウンタは CX レジ） 
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CALL NC，nn 


CALL C,nn 
CALL PO,nn 
CALL PE,nn 
CALL P,nn 
CALL M,nn 
RET 

RET NZ 

RET Z 

RET NC 

RET C 

RET PO 

RET PE 

RET P 

RET M 

RET I 

入出力命令 
Z80 

IN A,n 
IN r,(C) 

INI 


… JB NEXT 
CALL nn 
NEXT :—— 

•‘• JNB NEXT 
CALL nn 
NEXT： --- 
… JP NEXT 
CALL nn 
NEXT: --- 
… JNP NEXT 
CALL nn 
NEXT： --- 
… JS NEXT 
CALL nn 
NEXT ： 一-一 
•… JNS NEXT 
CALL nn 
NEXT： --- 
… RET 

••• JE NEXT 
RET 
NEXT: --- 
… JNE NEXT 
RET 
NEXT: 一一 - 
•… JB NEXT 
RET 
NEXT：—- 
••• JNB NEXT 
RET 
NEXT ： 一一一 
… JP NEXT 
RET 
NEXT：--- 
•… JNP NEXT 
RET 
NEXT： --- 
•… JS NEXT 
RET 

NEXT: 

••• JNS NEXT 
RET 
NEXT: --- 
… IRET 


8086 


IN 

AL 9 n 

MOV 

DH,0 

MOV 

AH,AL 

IN 

AL,DX 

MOV 

r,AL 

MOV 

AL,AH 

MOV 

DH,0 

MOV 

AH, A し 

IN 

AL,DX 

MOV 

匸 BX],A し 

INC 

BX 
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INIR 


IND 


INDR 


OUT n,A 
OUT (C),r 


OUT I 


OTIR 


OUTD 


OTDR 


MOV 

AL,AH 

DEC 

C し 

… MOV 

DH，0 

MOV 

AH,AL 

LOOP ： IN 

AL,DX 

MOV 

[BX],AL 

INC 

BX 

DEC 

C し 

JNE 

LOOP 

MOV 

AL,AH 

… MOV 

DH,0 

MOV 

AH,AL 

IN 

AL,DX 

MOV 

[BX],AL 

MOV 

AL,AH 

DEC 

BX 

DEC 

CL 

… MOV 

DH,0 

MOV 

AH,AL 

LOOP: IN 

AL.DX 

MOV 

[BX],AL 

DEC 

BX 

DEC 

Cl_ 

JNE 

LOOP 

MOV 

AL,AH 

OUT 

n,AL 

… MOV 

DH,0 

MOV 

AH,AL 

MOV 

AL,r 

OUT 

DX,AL 

MOV 

AH,AL 

… MOV 

DH,0 

MOV 

AH,AL 

MOV 

AL,[BX] 

OUT 

DX,AL 

MOV 

AL,AH 

INC 

BX 

DEC 

Cl_ 

… MOV 

DH,0 

MOV 

AH,AL 

LOOP: MOV 

AL,[BX] 

OUT 

DX,AL 

INC 

BX 

DEC 

CL 

JNZ 

し 0 OP 

MOV 

AL,AH 

… MOV 

DH,0 

MOV 

AH,AL 

MOV 

AL,[BX] 

OUT 

DX,AL 

MOV 

AL,AH 

DEC 

BX 

DEC 

CL 

… MOV 

DH,0 

MOV 

AH,AL 

LOOP ： MOV 

AL,[BX] 

OUT 

DX,AL 

DEC 

BX 

DEC 

C し 

JNZ 

し 0 OP 

MOV 

AL,AH 


索引 

B 

BASIC マシン 語 ルーチン . 265 

BASIC プログラム復活 . 46 

BASIC プログラム復活の原理 . 48 

BIOS コール . 95 

BIOS コマン ドー覧表 . 179 

BP (オフセツトアドレス） . 183 

C 

CALL.121.248.262 

CALL 文の 引数 . 255 

CIRCLE. 304 

CLOSE. 176 

CLS. 75 

CMD. 319 

CMT インターフェイス . 154 

CMT とデータ転送の仕様 . 154 

COLOR. 81 

COPY. 208 

CPU アドレス . 59 

CRT. 222.275 

D 

DAT A 文作成プログラム . 326 

DEF SEG. 251 

DEF USR. 251 

DIP スイッチ .58 

DMA (Direct Memory Access). 178 

DSKF 関数 . 173 

DSKI$ . 275 

DSKO$. 275 

E 

ES (セグメントアドレス） . 183 

Edit. 242 

F 

FAT (File Allocation Table). 171 

G 

G CIRCLE .112 

G CLS .Ill 

G COLOR. 110 

G COLOR 2.Ill 

G COPY.119 

GDC (7200).59 

G END .269 

GET#1.176 

G GET . 116 


G INIT . 106 

G LINE . 112 

G PAINT 1. 114 

G PAINT 2.115 

G PUT 1.117 

G PUT 2 .117 

G ROLL. 118 

G SCREEN.107 

G STEP .Ill 

G VIEW . 109 

G-VRAM. 233-269 

I 

mm .i8i 

ID セクタ . 171 

INI KEY.327 

INKEY $ でカーソル表示 .307-331 

INP 関数 .146 

IPL. 184 

I/O ポート .102 

K 

KI,KO .. 226 

KINPUT. 227 

KPLOAD. 301 

し 

LINE.89 

LINE の BIOS ワークエリア .90 

LIO(Logical Input Output). 104 

LOGO .300 

LPRINT. 211.219 

LPT1 ： . 274-275 

N 

N 88 BASIC.22 

NssDISK BASIC . 171.248 

NssDISK BASIC(86).184 

N 88 日本語 BASIC(86) . 298 

O 

ODA..16-217 

OPEN. 171.176 

OUT PUT. 307.333 

P 

PC9801E.305 

PC9801F.297 

PEEK.264 
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PEEK POKE での引数 . 264 

POINT. 300 

POKE. 264 

PRINT. 219 

PRINT #1. 176 

PUT#1. 176 

R 

RAM のメモリマップ .17 

REM 文の効率 . 307 

ROLL. 75 

ROLL200&ROLL400. 269 

RS232C. 289 

S 

SCREEN. 皿 

T 

TAB キーと TAB 関数 . 70 

TXTCOP . 211 

U 

UFO. 132 

USR. 121 

USR 問数 . 261 

USR 関数 .CALL 文とマシン語 . 248 

USR 関数の引数 . 252 

V 

VARPTR. 276 

VIEW ポート . 77 

V RAM.59-194 

W 

WIDTH.58 

ア 

アキュームレター （ FAC). 252 

アスキー SAVE. 25 

新しいコマンドを作る . 236 

アトリビュート . 276 

アドレス空間 . 14 

アドレスサーチ . 270 

アドレスの 表し方 . 15 

ィ 

イニシャライズ . 190 

イニシャライズ(初期化) . 217 

インターリーブ .13. 174 


インタプリタのキー入力 . 138 

インタラブトコール . 186 

インデックスボインタ . 26 

インベーダー . 62 

インベーダーパターン . 100 

工 

エラーメッセージ ディスプレイ . 314 

円孤を描く (CIRCLE) . 93 

才 

オフセット . 194 

力 

カーテンコール•クリア . 103 

拡張グラフィック画面 . 297 

拡張ステートメント . 297.300 

カセット . 275 

カセットから読み込み . 157 

カセットへの害き込み . 

カセットファイル . 154 

片面•両面アクセス . 194 

画面を縦に2分割 . 64 

カラー グラフィ ッ クコ ピー . 212 

カラーコード . 77 

カラーコードの 指定 .. 78 

カラ ー パレット . 

カラ ー パレットの 1/ 〇ポート . 78 

カラーパレッ トの初期化 . 80 

カラーパレッ トの情報 . 79 

簡易グラフ . 61 

簡易グラフィック . 62 

漢字 . 226 

漢字 ROM と 日本語 BASIC. 297 

漢字 ROM ボード . 226 

漢字 .JIS コード対応表 . 236 

漢字フォント . 235 

関数処理アドレス . 50 

ガベージコレクシヨン . 4 〇 

画面コピー機能 . 208 

画面の退避•復活 . 67 

キ 

キューアドレス . 136 

キューバッファ . 136 

キー.スキャン方式 . 146 

キーコード . 137 

キースキャン対応表 . 148 

キーセンス . 148 
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キーセンス比較表 . 152 

キー入力 . 136 

キー入カ バッファ . 136 

キー入力方法 . 151 

キー バッファク リア . 334 

キーワード . 25 

キー割り込み ON . 142 

行番号0 . 307.308 

ク 

クラスタ . 172 

クロック 8 M hz . 298 

グラフィック BIOS と GDC . 81 

グラフィック VRAM . 14 

グラフィック画面…: .74-208 

グラフィックスのワークエリア . 82 

グラフィックパターンを描く . 98 

ケ 

結果の戻し方 . 261 

：] 

5インチディスク . 189 

5ィンチ片面倍密度 . 167.168 

5インチ固定ディスク （5 MB ). 168 

5インチ固定ディスク （10 MB ). 169 

5インチ両面倍密度 . 167 

5インチ両面倍密度倍トラック . 167 

コール . 190 

高速書き込みモード . 101 

高速画面クリア . 77 

高速グラフ ィ ックス ローダー . 283 

高速リスト . 307.332 

コピー機能一覧 . 208 

コミュニケーシヨンプログラム . 295 

小文字•大文字変換 . 266 

サ 

サーフヱス . 172 

最大値を求める . 267 

最大値サーチ . 267 

3 D パッケージ . 121 

サウ ンドビープ . 265 

シ 

シャトルクリア . 103 

シーク . 186 

シーケンシャルフアイル . 176 

システムフォーマット . 174 


シリンダ . 179 

シリンダとヘッド . 179 

シンボル テーブル セグメント . 33 

時間表示プログラム . 335 

ス 

スクロールアップ . 77 

ステータス . 217 

ストップキーチエックルーチン . 149 

ストリングディスクリブタ .44-253 

セ 

整数型•単精度型 . 40 

セクタ . 172 

セクタ長 . 180 

セグメント .15-194 

セグメント•ボインタ . 19 

セント ロニ クス . 16 

セントロニクス系プリンタ . 217 

専用ケーブルの作り方 . 289 

1200ボー . 293 

ソ 

増設 RAM . 15 

属性(ァトリビュート）…… . 60 

夕 

タイマー(時間侍ち） . 251 

タイマールーチン . 160 

単純変数テーブル .35.37.38 

単密度 . 183 

単密モード . 183 

チ 

中間言語 . 24 

中間言語コード . 24 

中間言語テーブル . 27 

中間コード表 . 33 

直線と箱型を描く . 89 

ヅ 

通信速度 . 292 

通信モードの指定 .289-291 

テキスト VRAM . 14 

テキスト VRAM のアドレス . 59 

テキスト画面 .58-208 

テキスト画面の2ページ目 . 67 
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テキスト画面のコピー . 211 

テキストサーチ . 340 

テイルポインタ . 139 

ディスクアドレスとクラスタとの交換 . 169 

ディスクの物理構造……:. . 166 

ディスクマップ . 166 

ディスク BIOS コマンド .178-189 

ディスクファイル . 166 

ディレクトリ . 169 

ディブスィッチ . 15 

データ 書き込み . 156 

データスタック . 19 

データ の高速 セーブ • ロード . 161 

データファイル . i 55 

データフォーマット . 154 

デバイス種別 . 181 

デバイス名の一覧 . 274 

卜 

トラック . 172 

ドットを読み出す . 86 

ドット情報セット . 84 

ドットの指定数 . 85 

ナ 

内部ルーチン . 155 

2点と箱型の適切な方向 . 92 

入出カファイル . 273 

入カファイル . 273 

ハ 

配列変数テーブル . 39 

バッファカウンタ . 139 

バイト数 . 183 

倍密度 . 183 

バブルクリア . 1〇3 

8086リセット . 330 

8インチ ID リーダー . 203 

8インチ両面倍密度 . 166 

ノヽ アブノレりスト . j 59 

バーティカル•ファイルズ . 359 

ヒ 

標準ディスク . 174 

引数(パラメータ） . 248 

ひらがなの表示 . 68 


フ 

ファイルコントロールブロック （ FCB ). 276 

ファイルネームソート . 199 

ファイルの 属性 . 169 

ファイルバッファ . 273 

ファイルバッファアドレス . 278 

ファイルバッファ使用例 . 280 

ファーコール（セグメント間コール） . 251 

ファンクションキー . 139.227 

ファンクションキーの構造 . 139 

ファンクションキーの初期化 . 143 

ファンクションキーの退避•復活 . 145 

フォーマット . 187 

フォントパタ—ン . 229 

不揮発性メモリ . 15 

フラグ . 25 

物理アドレス . 15 

物理フォーマット . : . 174 

プリンタ出力 . 208 

プレーン . 74 

プログラムの格納状態 . 22 

プログラムの転送 . 289.293 

プログラムファイル . 154 

へ 

ヘッド . 179 

変数テーブル .3 d 

変数でファイル指定 . 273 

変数のリンクポインタ . 37 

ホ 

ボーダーカラー . 80 

ボーレート . 293 

マ 

マシン語によるセーブ•ロード . 156 

マシン語ファイル . 15〇 

未使用コマンドを使用 . 318 

メ 

メモリスイッチ . 

メモリマップ .14*275 

モ 

文字型配列変数 . 43 

文字コード . 137 

文字列を逆に表示 . 268 
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文字列エリア 


.44 


ユ 

ユーザー マシン語 . 20 

ユーテイリテイ . 340 

ュニット番号 . 181 

ラベルテーブル . 33 

ラベルの登録 . 33 

ランダムテクニック . 307 

ランダムファイル . 176 


リード ID . 181 

リブレイス . 347 

リンクポインタ . 22.36 


卞— . 293 

つ 

ワークエリア（ファイルコントロール） . 275 

1ファイル転送 . 197 
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印衆をこえて 


IP ( ァィビー ) は、これまで面倒だった紙面の钃集作業をより スムーズに する、イメージ•プロ乜ッ 
シングツールです。 プリントアウトのサイズはポピュラーな A4 。 皇富なスキャナに対応し、某品 
質なグラフィックが作成できます。 衆獻こ使えて、 ど C も便利。多方面にわたってのビジュアル 
• ブレゼン亍ーシヨンを可能にした、 あさやかな表現力です。 



お気に入りのフォトグラフはと . 

カラー対応のイメージスキャナから、写真をフ 
ルサイズで読み込みます0 IP では、スキャナ 
の能力に応じて A 4 判の大きさまで読み込み 
可能です。 






アクセントが欲しいな/ 

花の写真は、必要なところだけをトリミングい: 
読み込みます。トリミングは、任意の長方形を 
指定することにより簡単におこなえます。 






求められるものの、 
キャパシティがひろがった。 


二れまて r，oiv 制作やい\し’沿 u - 
づン)にはち 

そして135^こ作菜 I で、’谢かぃ 
が ■: したそれんブ糰作過•サ 
ボートする、新い、ゾフト W {i 
メーニ7 0セ/サ}.か m 生します 
ブリントマ々1七!1|述铝敝 II ムぃ.\1 
サイズむや V P もスキ V 十て匍中に 
取り敝しか Ml しぃ仕がりが期待 
でさますぃろんな道铽を使ったり. 
谢_人たち力 f - をわず*‘,方せずに 
ぐ:作楽を t すめ.•，れゐ丨 I て寸 
4划こ fHi せんか 


ボデ f コビーは こんなところかな 

書体、サイズの他、文字色や、文字間隔•行 
間隔を指定し、 VJE - 及によりワープロ感覚で 
文字を入力します。 


ビジュアルと文字を組み合わせて…と。 

文字と絵柄の大きさのバランスや配置などを検討し、 A 4 サイズ（印刷時)の中でレイアウト 
します0完成したら、プリントアウト。上の写真は、 PC - PR 801 での出力例です。フルカラープリ 
ンタでの出力の鮮やかさには目を見はるものがあり、ビジュアル効果を要求される各種プレゼ 
ンテーシヨンに威力を発揮します。 
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コミュニケ ー シヨナル0 


■機能一覧 

描画画面通常サイズ 640 X 400 ドット 
全体サイズ 1192 xl 752 ドット 

，印刷時 A4 サイズに相当 .PC-PR201 系の場合、 18.9x27.8 C m \ 

V • NM 系、 EPSON 系の場合、 16.8x24.7 cm ノ 

カラー 基本8色を含む25色 （16x 16タイルパターン、オリジナルタイルパターン 

作成可能） 

ビンセットで画面上の 16x16 ドット•セグメントの色をビックァップ可能 

ブラシ ブラシ12種 

半径•密度の調整可能なエァブラシ 
スクリーントーン12種(オリジナルトーン作成可能） 

消しゴム 

塗りつぶし 

基本図形ライン/スプライン/ボックス/ボックスフィル/角丸ボックス/角丸ボックスフィル/ 
サークル/サークルフィル/多角形塗り/矢印/ 

表枠(線幅3種、分割数縦横1~99) 

編集機能拡大/縮小/回転/変形/斜体/切抜き/色変換/かント/コピー/ペースト 

モード 全体表示、通常表示、拡大表示、スケール表示、座標表示、方眼表示 

文字 連文節変換/逐次自動変換/辞窨先読み一括変換 （VJE-;? 標準装備） 

書体4種 (PLANE、BOLD、OUTLINE、SHADOW) 文字サイズ 8 種 
(PC-PR201 系の場合 10-46 級、 NM 系 ’EPSON 系の場合9~41級） 

文字間隔、行間隔、文字色/下地色 

ファ心レ スクラップ(画面上の任意部分の読み書き） 

アートマスター400データへの読み書き 
MS-DOS 棵準テキストファイルの読み込み可能 

プリント レーザープリンタ (PC-PR406LP) やフルカラーイメージプリンタ （PC-PR801) 

サポート 

A4 サイズ固定マージン指定、印刷枚数指定、印刷範囲指定 

スキヤナ NEC 製 PC-IN501/502/503/503H 
EPSON 製 GT-3000/V 

線密度、読み取リサイズ、読み取り濃度、 M0N0/T0NE/C0L0R 
* COLOR の指定は GT- 3000/Vのみ可能 

カメラ EPSON 製 GT-20 

コントラスト、ブライトネス、書き込みモード、 M0N0/C0L0R、 窨き込みサイズ、 
バランス(オート/マニュアル） 


■'必要なシステム 
•本体 

PC-9801 E/F/M/VF/VM/UV/VX 
»PC-980KPC-9801U では動作しません。 

» PC-9801E では漢字 ROM が必要です。 

#ディスクユニット 

PC-9801E/F/VF では外付の 1MB タイプのディスクユニットが必要です。 
640KB(720KB) タイプのディスクはサボートじ C いません。 

2ドライブ必要です。 

•メモリ 容量 

本体メインメモリ 384KB 以上+1 MB 以上の RAM ボードが必要です。 

參 RAM ボード 

1MB RAM カード(システムソフト製） 

PIO-9234 シリーズ(卜〇データ機器製、 1MB 以上のもの） 

KR9807HMB/2MB (加貿電子製） 

のいずれか1つが必要です。 

•ディスプレイ 

専用高解像度ディスプレイ (640 x 400ドット） 

•マウス 

PC-9871 MS マウスセット (PC-9801E/F 用） 

PC-9872/K/L MS マウス (PC-9801M/VF/VM/UV/VX 用） 

アスキーマウスセット 
NE0S バスマウス MS-50 
NE0S シリアルマウス MS-40 
のいずれか1つが必要です。 

•イメージ入力装置 
PC-IN501/502/503/503H 
GT-3000/V 

GT-20( カラー入カアダプタ GR-20 が必要） 

のいずれか1つが必要です。 

※シリアルマウス使用の場合、イメージスキャナは 

PC-IN501/502/503/503H + 拡張インタフェースボード (PIO-9〗53、I.O データ機器製） 
または、 

PC-IN503H + GP- 旧インタフェースポード (PC-9801 -29N) 

または、 

GT- 3000 +GP- 旧インタフェイスポード （#5160、GT- 3000に実装） 

+ GP- 旧インタフェースボード (PC-9801-29K/N) 

GT- 3000V + GP- 旧インタフェイスボード (GT30VGRB、GT- 300 0V に実装） 

+ GP- 旧インタフェースボード (PC-9801 -29K/N) 

の組合せのみ使用可能です。 

•NEC 製 MS-DOS システム (Ver 2.1 1 または Ver 3.10) が必要です0 
參カラープリンタ 

NEC PC-PR201CL/HC/H2/V PC-PR801 NM-9950/9700 


EPSON ESC/P24-J83-C 

VP- 2500 VP-2550 

SHARP 10-725( タイプ I、NM モード) 

春モノクロプリンタ 


NEC 

PC-PR201/H/F 

PC-PR101/L/F 

PC-PR406LP 


NM-9300/9400 

NM- 9300 S/ 940 OS 

NM- 5020 

EPSON 

ESC/P24-J 82.83 
UP-130K 

IP-130K 

HG- 2500 


VP-130K 

VP-135K 

VP-1000 


VP-80K 

VP-85K 

VP-800 


※熱転写プリンタはサポートしていません。 

■ メディア 

5"-2HD、3.5"-2HD 

定価45,000円 


*MS-D0S は、米国マイクロソフト社の商標です。 

»VJE-y9 は、㈱アスキーと㈱バックスの共同開発したソフトウェアです。 
※その他一般に、会社名、製品名は各社の商標または登録商標です。 
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